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WARNING: This equipment generates, uses, and can radiate 


radio frequency energy and if not installed and used 
in accordance with the instructions manual, may cause 
interference to radio communications. It has been 
tested and found to comply with the limits for a class A 
computing device pursuant to subpart J of Part 15 of 
FCC Rules, which are designed to provide reasonable 
protection against such interference when operated 

in a commercial environment. Operation of this 
equipment in a residential area is likely to cause inter- 
ference, in which case the user, at his own expense, 
will be required to take whatever measures may be 
required to correct the interference. 
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Introduction 


Product Description 


IRMA™ a member of DCA's? family of micro-to-mainframe 
links provides the IBM9 PC, PC XT, or PC AT with a ditect 
high-speed link to IBM 3270 networks. IRMA offers a coaxial 
cable connection to IBM 3274, 3276, or Integral Terminal 
controllers with Type "A" adapters. It can operate with both 
channel attached and remote (BSC or SNA/SDLC linked) 

| 3274 controllers. 


IRMA includes a printed circuit board (card) that fits into any 
available slot in IBM PC’s and a software package that consists 
of a 3278/79 Terminal Emulator program, called E78, and 

two file transfer utilities for TSO and CMS environments. Also 
included in the software are BASICA subroutines which provide 
keystroke and field access from a BASICA program to the 3270 
controller. These routines are useful in developing programs 
for automatic data transfer., 


| The 3278/79 Terminal Emulator provides all users with the 
features of a 3278 type terminal. When using the emulator, 
the keys found on a 3278 terminal are available on the PC key- 
board. However, due to the differences in the layouts of the 
two keyboards, some key positions change. Keyboard charts 
and decals are provided with IRMA to aid the user with these 
key changes. 


IRMAS's operation requires no mainframe software or special 
network configuration. There is no additional software required 
to handle the 3270 protocol other than the on-board terminal 
emulator software. 


Thus, the IBM PC with an IRMA installed can immediately 
serve as either an independent workstation or as a full- 
functioned 3278/79 workstation. 


= IRMA Features 


Complete 3278 Emulation 


IRMA enables the PC to fully emulate a 3278 monochrome 
or 3279 color terminal with up to 3440-character display and 
80-character status indicator line — full 3278/79 emulation, 
plus stand-alone PC processing. 


File Transfer 


IRMAS's easy-to-use file transfer program, with its HELP function 
and question-and-answer format, provides all the information 
required for successful transfer of files under the ISO or CMS 
IBM mainframe software packages. 


Emulator Program Customization 
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GENX, a menu-driven program, allows you to tailor IRMA's 
features and function modes to your individual system require- 
ments. GENX may be used to create customized versions of 
the E78 Terminal Emulator program with specialized keyboard, 
color, and communication defaults. 


Keyboard Emulation 


IRMA users have the ability to redefine the PC keyboard to 
functionally correspond to the 3278 typewriter-style keyboard. 
Alternate (Alt) and Control (Ctrl) key functions allow easy 
emulation of PF and PA keys. IRMA supports all 16 possible 
IBM keyboard types, including “reserved” types used by IBM 
for custom keyboards. A color-coded keyboard chart is provided 
for easy identification of all normal and special key functions. 


Keyboard Reconfiguration 


IRMA users have the ability to reconfigure the keyboard. All 
E78 Terminal Emulator program keyboard sequences ate con- 
trolled by simple tables which may be user-modified using the 
GENX program feature. Since changing the keyboard requires 
changing the IRMA tables, this task should be handled by 

an experienced programmer. An additional document that 
explains this procedure in detail can be requested from either 
DCA’s Customer Support or Technical Support Group. 


Instant Emulator Availability 


IRMA' emulator program can be made resident upon execu- 
tion. With this feature, an "auto resident" E78 can be placed 
in the AUTOEXEC.BAT file to make terminal emulation 
instantly available at machine startup. 


On-Board Screen Buffer 


IRMA maintains a complete screen buffer in memory. The 
buffer is accessible from user programs that run in the PC itself, 
allowing you to develop your own selective access to corporate 
databases, retrieving data from the mainframe, and returning 
the modified screen. 
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Independent, Concurrent Operation 


IRMA's on-board high-speed microprocessor handles the 3270 
protocol independently of the PC's 8088 processor. This permits 
an IBM PC or PC XT to be attached and on-line as a 3278/79 
terminal while also allowing full stand-alone processing 
activities by the PC. 


Attribute/EAB Support 


IRMA supports Attribute and Extended Attribute (EAB) 
characters for field-oriented screens. 


Light Pen Support 


IRMA provides light pen support for applications requiring 

the IBM "Selector Pen". This feature requires that the E78 Ter- 
minal Emulator program be used with the IBM Color Display 
Adapter, and a light pen which connects to the display adapter 
(such as the one sold by FIG Data Systems, Stanton, California). 


ASYNC Character Support 


IRMA allows data entry to IBM mainframes using character 
setial devices attached to the PC RS-232 ASYNC card on 
COMI: The interface supports such options as barcode or 
OCR readers and touch input screens (such as the screen 
manufactuted by Touch Technology, Annapolis, Maryland). 


APL Support 
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IRMA supports the IBM APL-I character set and keyboard. 
This support requires a display adapter equipped with DCA 
ot STSC APL*PLUS/PC™ character generation ROM. (For 
more information concerning the DCA APL option, contact 
DCA Customer Support at 1-800-631-4171. In Georgia call 
1-404-442-4470.) 


43-Line Screen Support 


IRMAS E78 Terminal Emulator program may be configured to 
appear to the mainframe as a 3278 MOD 2 (24x80), MOD 3 
(32x80), or MOD 4 (43x80), or 3279 (with full seven-color 
support). Screens longer than 24 lines are handled by scrolling 
| key functions and an automatic cursor tracking system. MOD 
Á support is standard with Revision 1.06 (or higher) IRMA 
cards. Revision 1.05 IRMA cards can be modified to support 
MOD 4. To modify the 1.05 IRMA card, contact DCA's Cus- 
tomer Support at 1-800-631-4171 for the proper procedures. 


PC 'Look-Similar' Support 
IRMA is able to support PC "look-similars" using 8086 
processors (such as the Eagle 1600). Also included is support 
for hybrid COLOR/MONOCHROME screens such as those 
used on the COMPAQ™ portable computer. 


What to Do First 


-The IRMA package consists of the following items. Check to 
see that you have received the complete kit. 


BI IRMA documentation Package 
| m IRMA printed circuit board 
; & IBM PC compatible diskette containing the IRMA software 
1 IRMA keyboard decal kit 


m Plastic card guide. 
If any items are missing, contact your IRMA distributor. 


Now turn to the Customer Support Information found at the 
end of the IRMA User's Manual and read the warranty infor- 
mation carefully. A DCA product registration card is also 
located in this section. Fill out this card and return it to DCA. 
This validates your IRMA product warranty and provides DCA 
with a means to keep you informed of any product updates 
that may occur ` 
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Information About This Manual 
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The purpose of this manual is to provide you with complete 
instructions for installing, configuring, and using the IRMA 
product. This manual does not discuss details about data com- 
munications concepts, IBM 3270 terminal operations, or net- 
work application programs. If you are not familiar with these 
topics, refer to your systems supervisor or documentation relating 
to the specific subject of interest. IBM's publication, IBM 
GA27-2849, 3270 Information Display System Configuration, 
contains information about the 3270 family of terminals. 


The IRMA User's Manual is divided into five chapters, three 
appendices, and a Customer Suppott section. 


Chapter 1, “Introduction,” describes the IRMA product's basic 
features and benefits. This chapter also provides a checklist of 
the IRMA package and a description of the information con- 
tained in each chapter. 


Chapter 2, "Installation;' presents step-by-step procedures for 
installing the IRMA printed circuit board and applying the 
decals to your PC keyboard. If you require any of IRMA'’s spe- 
cial features, such as APL support or support for the 
PC-compatibles (COMPAQ or EAGLE"), there are instructions 
for customizing the emulator software to accommodate these 
special needs. 


Chapter 3, "Using IRMA and the Terminal Emulator,” describes 
the operations and functions of the emulator. All of IRMA’s 
special functions are described in this chapter. There is also a 
discussion of the 3270 system messages and how they appear 
on the PC. 


Chapter 4, “File Transfer,’ presents two file transfer programs, 
one for TSO environments, and one for CMS environments. 
Contained in this chapter are the step-by-step procedures for 
using the transfer programs. 


Chapter 5, “Technical Reference,” presents the necessary infor- 
mation required for a programmer to access IRMA for complex, 
specialized software development. 


Appendix A, "Error Conditions; includes error messages relat- 
ing to IRMA and how to rectify simple problems that may 
arise in daily use. 


Appendix B, "Using GENX;' describes in detail the menu 
options used to customize the 3278 emulation software. 


Appendix C, "BASICA Subroutines,” discusses the use of the 
subroutines provided with the IRMA software. These routines 
can be used by an experienced BASICA programmer for 
developing programs for file transfer. 


Customer Support Information contains the product warranty 
and registration catd, service information, and a reader 
comment page. 
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| How to Use This Manual 


The IRMA User's Manual provides information for both the 


basic and advanced computer user. You may not need to read 
all of the user's guide to adequately use IRMA and the 3278 
emulation program. Use the following chart to determine 
what information you need. 


Read 
Appendices 


Read 
Chapters 


If you want 
to... 


Install IRMA X 

Customize 3278 

Emulation software X X 
Use the emulator X X 

Use File transfer x 

Develop Assembly 

Language Programs X X 
Develop BASICA 

programs x x 
Troubleshoot 

IRMA x |x 


NOTE: E78 refers to the IRMA Terminal Emulator. Through- 
out the remainder of this manual E78 and IRMA 
Terminal Emulator software are synonymous. 
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| IRMASs installation is broken into three phases. Phase one is 
the physical installation of the IRMA board. Phase two is the 
| application of the keyboard decals. Phase three is specifying 
special options through a menu driven customization routine 
| called GENX. Not all users need to use GENX. However, 
everyone should read the discussion on ‘Special Options’ 
found later in this chapter to determine whether you need to 
use GENX or not. Also included in this chapter are instruc- 
i tions for making backup copies of your IRMA diskette. 


Items You Need to Install IRMA 


B you are ready to install IRMA, check first to see that you 
have everything you will need to perform the installation. 
You must have the following items: 


B Your IRMA circuit board. 
m An IBM PC or a PC-compatible machine. 


Æ A copy of the IBM PC Guide to Operations or any other 
manual that contains instructions for the removal and 
re-assembly of the PC cabinet, as well as instructions for 

| installation of an option into the PC. 


M™ Any tools suggested by your IBM manual for the operations 
described above. 

Small tool with one sharp end and one blunt end for 
applying the keyboard decals. 


Cables and Connections 
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Now that you have gathered the equipment and tools you will 
need for the installation of the IRMA card and the decals, it is 
necessary to discuss the way your PC will be connected to the 
mainframe system. IBM uses coaxial cable to connect certain 
types of equipment such as printers and terminals to other 
types of equipment, such as a mainframe terminal controller. 
If your PC and IRMA are to communicate with the mainframe 
system, you must have a coaxial cable running into the work 
area where your PC is located. The other end of this coax cable 
must be attached to the coax port of your mainframe terminal 
controller. If your PC is replacing an IBM 3278 or 3279 termi- 
nal, this cable may already be present. 


The terminal controller is able to communicate not only with 
terminals, but with other devices as well (such as a printer). 
The controller must understand what type of device is attached 
by cable to its port. Therefore, the controller cable port you 
will use with your PC and IRMA must be “configured” to work 
with a 3278 or 3279 terminal and a typewriter-style keyboard. 
If you will be using an existing cable that is presently, or was 
previously, attached to an IBM 3278/79 terminal, the controller 
port on the other end of the cable is probably configured 
correctly at this time. 


If you are not sure if you have a coax cable in your work area, 
ot if the existing cable requires configuration, see your MIS 
or other technical support personnel for help. 


How to Install IRMA 


If you have all the necessaty equipment and tools, you are 
ready to install your IRMA board. Follow the instructions below. 


1. Following the instructions outlined in your PC manual, 
remove the cover of the PC unit. 


WARNING: Unplug the PC unit prior to the installation of any 
accessory card. To ensure safety, unplug the system unit 
line cord before removing the cover. Following instal- 
lation, completely re-assemble the cabinet before 
applying power. 

2. Locate an open expansion slot in the PC and install the 
IRMA card into this slot. For instructions detailing this 
procedure, refer to the "Options" section of your IBM PC 
Guide to Operations. IRMA installation requires no switch 
settings. 


3. Following the instructions in your PC manual, re-assemble 
the PC cabinet. Be sure to re-attach all cables as instructed. 
The rear panel of your PC now has a coax connector project- 
ing from the IRMA card you have just installed. 


4. Attach the coaxial cable described in the cable instructions 
to the IRMA coaxial connector on the rear panel of your PC. 
To attach the cable, gently push and turn the connector 
1/8th turn clockwise until it locks. If you should need to 
remove the cable, simply reverse this process, pushing gently 
and turning the connector 1/8th turn counter-clockwise. 


5. Plug in your PC unit. 


6. Your IRMA card is now physically installed. The next phase 
of the installation is to apply the key decals that are provided 
as patt of the IRMA package. 
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The keyboard charts on the following pages are provided as a 


guide to the location of the keys and key functions available to 
you as an IRMA user. The chart uses a color code system that 
identifies normal PC key functions, 3278/79 key functions, 
and special IRMA functions. The chart may also be used as a 
guide to placement of the color-coded decals provided with 
your user's manual. 


To apply your color-coded keyboard decals, see the appropriate 
fold-out keyboard chart and follow the instructions below. 


1. Locate a sharp-tipped tool (small knife blade, nail file, or 

similar item), and choose a starting point on the chart. 

2. Using the tip of the tool, carefully lift the decal by its top 
edge and position it onto the appropriate key in the loca- 
tion indicated on the keybord chart. 

. Using a fingertip or smooth blunt object, smooth the decal 
onto the key. Avoid touching the adhesive with your hands. 

4. Repeat the process for each remaining key, being careful to 

exactly match the keyboard chart. 
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Belgian Keyboard 


This keyboard chart is provided as a guide to the location of keys that invoke special 
IRMA functions. The chart may also be used as a guide to placement of the color- 
coded decals provided in the documentation package. 


Legends in! | Print 
These keys represent normal PC functions. Some of these functions may not be 
available while running the terminal emulator. 


Legends in BS Print (Black on decals) 
These keys are used to invoke special IRMA functions while running the terminal 
emulator. While in the emulator mode, these keys replace normal PC legends. 


Legends in ^. Print (Blue on decals) 

These keys are used in combination with the Alternate (Alt) key to perform certain 
commands or functions. To invoke Alt functions, press the Alt key while at the same 
time pressing the key appropriate for the desired function or command. For exam- 
ple, to invoke the PFI function, press simultaneously the Alt and 1 keys. 


E 


Legends in (5 Print (Red on decals) 

These keys are used in combination with the Control (Ctrl) key to perform certain 
commands or functions. To invoke Ctrl functions, press the Ctrl key while at the 
same time pressing the key appropriate for the desired function or command. For 
example, to invoke the PF13 function, press simultaneously the Ctrl and 1 keys. 


POWER 
A uP 


Canadian-French Keyboard 


This keyboard chart is provided as a guide to the location of keys that invoke special 
IRMA functions. The chart may also be used as a guide to placement of the color- 
coded decals provided in the documentation package. 


Legends inf Print 
These keys represent normal PC functions. Some of these functions may not be 
available while running the terminal emulator. 


Legends in EE Print (Black on decals) 
These keys are used to invoke special IRMA functions while running the terminal 
emulator. While in the emulator mode, these keys replace normal PC legends. 


Legends in ^^. Print (Blue on decals) 

These keys are used in combination with the Alternate (Alt) key to perform certain 
commands or functions. To invoke Alt functions, press the Alt key while at the same 
time pressing the key appropriate for the desired function or command. For exam- 
ple, to invoke the PFI function, press simultaneously the Alt and 1 keys. 


Legends in Print (Red on decals) 

These keys are used in combination with the Control (Ctrl) key to perform certain 
commands or functions. To invoke Ctrl functions, press the Ctrl key while at the 
same time pressing the key appropriate for the desired function or command. For 
example, to invoke the PF13 function, press simultaneously the Ctrl and 1 keys. 


P FIELD 
MARK 


PowER | N 
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English (Domestic) Keyboard 


English (UK) Keyboard 


This keyboatd chart is provided as a guide to the location of keys that invoke special 
IRMA functions. The chart may also be used as a guide to placement of the color- 
coded decals provided in the documentation package. 


Legends in! Print 
These keys represent normal PC functions. Some of these functions may not be 
available while running the terminal emulator. 


Legends in EHH Print (Black on decals) 
These keys ate used to invoke special IRMA functions while running the terminal 
emulator. While in the emulator mode, these keys replace normal PC legends. 


Legendsin ^| Prnt (Blue on decals) 

These keys are used in combination with the Alternate (Alt) key to perform certain 
commands or functions. To invoke Alt functions, press the Alt key while at the same 
time pressing the key appropriate for the desired function ot command. For exam- 
ple, to invoke the PFI function, press stmultaneously the Alt and 1 keys. 


Legends in 59 Priat (Red on decals) 

These keys ate used in combination with the Control (Ctrl) key to perform certain 
commands or functions. To invoke Ctrl functions, press the Ctrl key while at the 
same time pressing the key appropriate for the desired function ot command. Fot 
example, to invoke the PF13 function, press simultaneously the Ctrl and 1 keys. 


brag 
ERN 


iud 
PF22 


PF20 PF21 


y , 


E 


pr PEJ 
PF23 


PF18 


FIELD 
MARK 


POWER 
UP 


d U 


French AZERTY/ QWERTY Keyboard | 


German / Austrian Keyboard 


This keyboard chart is provided as a guide to the location of keys that invoke special 
IRMA functions. The chart may also be used as a guide to placement of the color- 
coded decals provided in the documentation package. 


Legends in Print 

These keys represent normal PC functions. Some of these functions may not be 
available while running the terminal emulator. 

Legends in E2 Print (Black on decals) 

These keys are used to invoke special IRMA functions while running the terminal 
emulator. While in the emulator mode, these keys replace normal PC legends. 


Legends in ^ Print (Blue on decals) 

These keys are used in combination with the Alternate (Alt) key to perform certain 
commands or functions. To invoke Alt functions, press the Alt key while at the same 
time pressing the key approptiate for the desired function or command. For exam- 
ple, to invoke the PFI function, press simultaneously the Alt and 1 keys. 


Legends in tint (Red on decals) 

These keys are used in combination with the Control (Ctrl) key to perform certain 
commands or functions. To invoke Ctrl functions, press the Ctrl key while at the 
same time pressing the key appropriate for the desired function or command. For 
example, to invoke the PF13 function, press simultaneously the Ctrl and 1 keys. 


Italian Keyboard 
Norwegian Keyboa 


f ) J E 
pt 
CRC 


Swedish Keyboard 


Make a Backup Copy of IRMA Software 


Before using the IRMA software it is important to make a 
backup copy. Use the backup copy for daily use. Do not ever 
modify the original diskette. If you have a standard two drive 
system (A and B) follow the instructions below. If you have a 
single drive system or a hard disk drive (C) refer to the IBM 
DOS manual and/or the IBM Guide to Operations for your 
system. Hi 


STEP 1: Insert IBM PC DOS To boot system 


diskette into drive A 

STEP 2: Boot DOS by pressing To get PC running. 
the Ctrl and Alt keys The A prompt should be 
together. Then press the displayed on the monitor. 


Del key. Release all three 
keys at the same time. 


STEP 3: Enter the DISKCOPY The DOS diskette must 
command still be in drive À when 
this command is entered. 


STEP 4: Follow the prompts that 
are displayed on the screen. 


(Remove the DOS diskette 
and place the IRMA diskette 
into drive A). 

STEP 5: Insert a blank diskette This becomes the target 
into drive B diskette 

STEP 6: Remove both diskettes Store the original in a safe 

-when the copy is place. Use the backup 

complete copy; Do not perform GENX 


routine on the original. 


For more detailed instructions on the DISKCOPY command 
refer to the IBM PC DOS Manual. 
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Why You Use the Backup Copy 


You should always use a backup copy. If the original should be 
damaged or altered in any way, you would have no immediate 
means of recoveting the data on the original. As you become 
more familiar with the options provided in the GENX routine, 
you may find that you want more than one version available 

for different applications. It is recommended to customize 

only unmodified versions of the IRMA emulator software. 
Consequently, you may need to make additional backups of 
the original as the need arises. If you modified the original, you 
would have no means of making additional customized versions. 


Special Options You May Need 
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Before continuing to Chapter 3, "Using IRMA and the Terminal 
Emulator; you may need to be familiar with some details of a 
program called GENX. GENX is a program that allows you to, 
through the use of a menu, make certain changes to the E78 
emulator program. These changes may satisfy special require- 
ments demanded by your particular system needs. For instance, 
GENX allows you to select a keyboard type other than the 
typewriter-style, or to select from a number of terminal screen 
types and sizes. You may also use GENX to select certain color 
features. 


If you plan to use IRMA and your PC as a 3278 terminal with 
a standard typewriter-style keyboard (Mod 2, 80 column by 25 
line display), you probably do not need to use the GENX pro- 
gram. If you are using IRMA with a PC-compatible COMPAQ 
or EAGLE 1600 machine, you MUST use the GENX program 
to accommodate certain modifications required by these units. 


If you're not using a PC-compatible and have no reason to use 
GENX at this time, your installation is complete. Proceed 

to Chapter 3, "Using IRMA and the Terminal Emulator? 

for instructions on how to use IRMA. If you ate using a PC- 
compatible, proceed to the next section ‘Additional Steps 
Required for PC-Compatibles’ If you need further information 
concerning GENX, refer to Appendix B, "Using GENX” 


Additional Steps Required for PC-Compatibles 


As mentioned previously, you may not need to have a cus- 
tomized version of IRMA's emulator software. However, if you 
are using a PC-compatible machine you must use GENX to 
make some adjustments. The instructions that follow present 
a step-by-step guide for making these adjustments. If you 
require additional GENX options, refer to Appendix B for a 
detailed explanation of GENX. 


STEP 1: Insert the backup disk- To make IRMA software 
ette into drive A available 
STEP 2: Enter E78GEN ‘To modify IRMA’s emula- 


tor software 
The following menu appears: 


E78 Terminal Emulator Customization Menu 


1 — Disable 26th line status display 
3 — Make emulator auto-resident 
9 — Make 2 color mode default 
6 — Make 7 color mode default 
8 — Make SHOW COLUMNS default 
10 — Convert to pre-1.20 keyboard 
12 = Select KEYBOARD & SCREEN type 
13 2 Set LIGHT PEN correction 
14 = PC look-alike patches 
15 = Setup COM1: input parameters 
17 — Disable NON-DISPLAY display 
18 — Force dark blue to cyan 
20 — Select IRMAlette operation 


99 = Exit GENX program 


Your selection: 
STEP 3: Enter 14 To select PC look-alike 


| patches for COMPAQ or 
EAGLE 1600 
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At this point a submenu is displayed. Its screen appears as 
follows: 


PC Look-alike Patches 


1 — Eagle 1600 screen cleanup 
3 — Force Horizontal update sync 
5 — Disallow 26 line color display 
7 — Set cursor position 


98 — Return to previous menu 99 — Exit GENX program 
Your selection: 


STEP 4: Enter the appropriate To eliminate non-IBM PC 
choices. machine problems 


Item # 1 Eliminates dots that sometimes appear on the CRT. 
This selection also enables 8086 type screen accesses 
and should be selected when IRMA/E78 is used in 
any 8086 based machine. 


Item 4 3 When selected removes or reduces scteen flicker on 
some non-IBM machines, notably the EAGLE PC. 


Item #5 Should be selected if using the COMPAQ 
color/monochrome display. 


Item #7 Sets the cursor to the bottom of the character block. 
Some monochrome displays position the cursor in 
the center of the character block, rather than at the 
bottom. This option should be used at the user's dis- 
cretion whenever cursor requires repositioning. 


The other options presented in the GENX main menu may 
be used to satisfy special requirements demanded by your sys- 
tem. For instance, GENX allows you to select a keyboard type 
other than the typewriter style such as an APL keyboard or a 
Mod 3 keyboard. You may also use GENX to make the E78 
program, in its customized form, auto-tesident or to select cer- 
tain color features. If you want to examine these options more 
closely, refer to Appendix B, "Using GENX;' for a complete 
description of GENX. 


If no other modifications to the E78 software are required for 
normal operations, proceed to STEP 5. If you want to make 
other changes go to STEP 6. To begin using E78 you must exit 
the GENX routine. 


STEP 5: Enter 99 To return to DOS operat- 
ing system. 

STEP 6: Enter 98 | To return to GENX main 
menu 


Your modifications are saved in a file called CE78. When you 
are ready to access the 3270 host, you should enter CE78 in 
place of E78 to activate the emulator mode. 


You are now ready to begin using IRMA and the E78 software. 
Chapter 3, "Using IRMA,” presents all of the user information 
requited to operate as a 3278 or 3279 terminal from your per- 
sonal computer. 
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Chapter 5 


Using IRMA and tbe 
Terminal Emulator 


Introduction 


The terminal emulator program is very important to yout 
IRMA unit. This program, referred to as E78, works with 
IRMA to greatly enhance the capabilities of your IBM PC. 
With IRMA and its emulator program, the PC now becomes 

a much more versatile business tool, one that is able to setve 
you in two ways. Besides serving as a stand-alone personal com- 
puter with its word processing and other capabilities, the PC 

f with IRMA becomes your link to the full computing power 

: and data base of the host computer. Both PC and mainframe 

, programs are now available to you. 


With the terminal emulator program active, your PC screen 
has the same features as those found on any of the following 
IBM terminal models: 


8 3278 Mod 2 (monochrome with 24 lines, 80 characters 
each). 


M 3278 Mod 3 (monochrome with 32 lines, 80 characters 
each). 

B 3278 Mod 4 (monochrome with 43 lines, 80 characters 

each). 


If you use a color monitor with your PC, E78 also allows 
| emulation of the IBM Model 3279 character terminal with full 
seven-color suppott. 


How IRMA Works with its Emulator Program 
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IRMA actually acts as a translator, translating each keystroke 
twice. When you press a key on your PC keyboard, IRMA 
translates that key character or function into a form that can 

be understood by your IBM mainframe system. Likewise, when 
information is returned by the IBM mainframe to your screen, 
IRMA makes sure that the information is in a form that can be 
understood by your PC. 


Customarily, the information sent from the IBM mainframe 


and displayed on your screen is organized into areas called fields. 


Key functions that involve the printing of information, or stor- 
ing or transmitting it, are all organized into this field format. 


The characters that define the type of data to be entered in a 
particular field are called attribute characters. IRMA supports 
the use of these characters, which define such things as the 
start of a field, whether information may be entered into the 
field, whether the field may be detected by a light pen, and 
others. Other attribute characters called Extended Attribute 
Characters define character types (blink, reverse video, etc.), 
character color, or character sets. If you wish to know more 
about these attribute and extended attribute characters, see 
Chapter 5, "Technical Reference.” 


How To Use the Terminal Emulator 


| During the installation you should have placed the decals onto 

the appropriate keys. If you have not done so yet; do so now. 

i The instructions and color coded keyboard charts are found in 
Chapter 2, "Installation." 


E78 allows your PC to function as a 3278 or 3279 terminal. 
Before beginning the program, make sure that you ate com- 
pletely and properly installed, and that all cable connections 
are correct. To be certain, ask yourself the following: 


Is your IRMA card properly installed in the PC? 


1 Do you have a coaxial cable firmly connected, one end to 
the IRMA port on the rear panel of the PC, and the other 
end to your IBM 3274 or 3276 conttoller? 


B Is the IRMA coaxial port configured for a 3278/79-type 
typewriter keyboard? 


Æ Is your PC unit plugged in? 


If you answered yes to all of these questions, read on to the 
next paragraph. If you answered no to any question, turn back 
to the installation instructions. Follow all installation steps 

] carefully. When you have completed all installation steps, turn 
again to the questions above. 


| The IRMA E78 diskette is not a bootable diskette. In order to 
execute any of the programs contained on this diskette, IBM 
PC-DOS must be actively running on the PC. The procedures 
for booting DOS are found in Chapter 2, “Installation,” and in 
the IBM PC-DOS manual. 


Also, if you bave not already done so, make duplicate copies of your 
IRMA diskette now. For daily use, use a duplicate copy—not the 
original. You may also copy the contents of the IRMA diskette on 

to a hard disk, if your PC is so equipped. 


! Instructions for making backup copies of a diskette are found 
in Chapter 2, “Installation,” and in the IBM PC-DOS manual. 
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To begin using E78, follow these steps: 
STEP 1: Insert the duplicate diskette To prepare for use 


into the disk drive (unless 
you have moved the IRMA 
diskette contents to hard 
disk). 
STEP 2: Enter: E78 after the prompt To activate the basic E78 
program 
or 
E78 «filename To activate the E78 
program with Screen 
Save capabilities. 
or 
E78/n To activate the E78 pro- 
gram with Screen Store 
and Recall capabilities 
or 
E78/n <filename > To activate the E78 


program with Screen 
Save and Screen Store 
and Recall capabilities 


NOTE: For those users who have modified E78, your modi- 
fications are saved in a file called CE78 (Customized 
E78). You should enter the appropriate disk drive and 
CE78 to activate the emulator mode. From this point 
on in this chapter, any reference to E78 should be 
considered a teference to CE78 as well. 


As indicated in STEP 2, there are four ways to access E78. If 
you do not need to save any screens to diskette, or store screens 
in memory for later recall, simply enter E78 after the system 
prompt. Note that if the E78 diskette is not in the working 
disk drive, you must also enter the disk drive in which the E78 
program is located. (For example, if drive A is the working 
drive, and E78 is located in drive B, enter B:E78 after the sys- 
tem prompt or if E78 has been moved to a hard disk drive, 
enter C:E78.) 


For additional information on "Screen Save" and "Screen Store 
and Recall,” refer to the topic, ‘Special Key Functions For 
Screen Save and Recall; found later in this chapter. 


When IRMA is acknowledged by your IBM mainframe system, 
the screen exhibits the same system information displayed by 
a 5278/79 terminal. The first screen displayed is usually the 
IBM System Logon Banner. At this point, you may use the PC 
exactly like any 3278/79 terminal. You may access system pro- 
grams, create new files, or perform any other function of the 
IBM 3270 network that your MIS department allows you to 
use. Please be aware that to use the mainframe you must have 
a valid password. Passwords are normally assigned by the MIS 
or mainframe systems personnel. 


Emulator Mode/PC Mode 


If you are using your PC as a 3278/79 terminal, you are said to 
be in the emulator mode. When you are using yout PC for its 
capabilities alone, you are said to be in the PC stand-alone 
mode. You may switch back and forth between the 3278/79 
emulator mode and the PC stand-alone mode. To exit the 
emulator mode, simply press both SHIFT keys simultaneously. 
To re-enter the emulator mode, type E78 in response to the 
PC prompt. 


You have available to you an even more convenient method for 
moving between the 3278/79 and PC modes. While in the 
emulator mode, press the CONTROL (CTRL) and HOME keys 
simultaneously. This key combination makes the emulator 
program "resident" (resident emulation requires at least 96K 
of PC memory). When the emulator program is resident, you 
need not enter E78 each time you wish to re-enter the emulator. 
Once your emulator program is resident, both exit and re-entry 


of the emulator is accomplished by simultaneously pressing 
both SHIFT keys. 


STEP 1: Ifyou are not in emulator To activate emulator 
mode, enter the access 
command appropriate for 
your application, such as 
E78 or E78/n <filename>. 
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STEP 2: Press CTRL & HOME To make the E78 "resident" 
simultaneously 
Press ESC to complete 
sequence. 


STEP 3: Press both SHIFT keys To exit Emulator mode 
simultaneously 


Now do spread sheets or whatever you desire with your PC as 
a stand-alone machine (just don't re-boot), then 


STEP 4: Press both SHIFT keys To re-enter Emulator 
simultaneously mode 


One limitation exists when using the resident emulator. 
PC-DOS does not allow you to save screens from a resident 
program. To compensate for this limitation, you may simul- 
taneously activate both the resident and non-resident forms of 
the emulator program. To do this, return to the PC stand-alone 
mode and enter E78 « filename >. This gives you access to 

a non-resident E78 program. For more information on screen 
save, refer to the topic ‘Special Key Functions for Screen Saves 
and Recall; found later in this chapter. 


E Commands And Functions Available with E78 


The following table contains commands and key combination 


functions most commonly used by the general user. This table 
is followed by another that lists a number of special commands 
and functions typically used by the programmer — not the 
general user. In both tables, the command or key combination 
is shown in upper case letters and/or numerals on the left. 

In parentheses underneath the key combinations is a brief 
explanation of the function for quick identification. The right- 
hand column of the table contains a more comprehensive 
explanation of how the command or key combination is used. 


Table 3-1 Commands and Key Functions for General User 


Command or 
Key Combination 


E78 
E78/n 


E78 «filename» 


E78/n «filename» 


Function or Use 
Activates the terminal emulator program. 


Activates the terminal emulator with Screen 
Store and Recall capabilities. 


Activates the terminal emulator with Screen 
Save capabilites. 
Activates the terminal emulator with both 


the Screen Store and Recall and Screen Save 
capabilities. 


For each of the following key functions, both keys are pressed 


simultaneously. 


SHIFT & SHIFT 
(Exit/enter 
Emulator) 


CTRL & HOME 
(Make resident) 


CTRL & PgDn 
(Reset system) 


CTRL & 4 
(Cursor left 
two positions) 


CTRL & 6 
(Cursor right 
two positions) 


CTRL & Fl 
(Color select) 


CTRL & F3 
(Show unprotected) 


SHIFT & PrtSc 
(Print screen) 


Exits either non-resident or resident 
emulator. May also be used to re-enter 
the resident emulator. 


Creates a “resident” copy of the emulator 
program. (Must have 96K memory.) 


Causes system to reset, as if just powered up. 
Equivalent function on the 3278 terminal is 
test switch located to right of the display 
screen. 


<< — moves cursor left two character 
positions. (THE ‘4’ IS LOCATED ON THE 
NUMERIC KEY PAD.) This function is also 
provided as CTRL & D. 


— >> moves cursor right two character 
positions. (THE ‘6’ IS LOCATED ON THE 
NUMERIC KEY PAD.) This function is also 
provided as CTRL & F 


Assigns attribute color code for display 
(provided color display adapter is use with 
the PC). If CTRL & F1 are entered, 
monochrome application programs ate 
displayed in 3279 color. 


Places dots in unprotected null fields. 
Useful to check the length of data entry 
fields. 


Prints current scteen on local printer 
(This function can be used by both resident 
and non-resident emulators.) 
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The following table shows special key combinations and func- 
tions typically used by a programmer. These functions may be 
of little use to the general user. 


Table 3-2 Key Functions for Programming Use 


Key Combination Function or Use 
CTRL & F2 Attributes (display buffer codes (0COH - 


OFFH) are displayed as ASCII characters 
040H — 07FH. For Example, Attribute 
OCOH is displayed as “@”. The following 
chart shows the displayed characters for 
each attribute. 


Conversion of Attribute characters to Display symbols: 


Attr. Char Attr. Char  Attr. Char  Attr. Char 


0COH @ 0DOH P OEOH n OFOH p 
0C1H A 0D1H Q OE1H a OFIH q 
0C2H B 0D2H R OE2H b OF2H Í 
0C3H C 0D3H S OE3H C OF3H S 
0C4H D 0D4H T OE4H d OFÁH t 
0C5H E 0D5H U OESH e OF5H u 
0C6H F 0D6H V OE6H f OF6H V 
0C7H G 0D7H W | 0E7H g OF7H w 
0C8H H 0D8H X OESH h OF8H x 
0C9H I 0D9H 5d OE9H 1 OF9H y 
0CAH J ODAH Z OEAH j OFAH Z 
OCBH K oDBH [ OEBH k OFBH i 
0CCH L 0DCH \ OECH l OFCH ! 

0CDH M oDDH ] OEDH m OFDH } 
OCEH N ODEH " OEEH n OFEH ^, 
OCFH O ODFH — A. OEFH o OFFH < 


For additional information on attributes refer to Chapter 5, “Technical 
Reference’ 


CTRL & F3 Places dots in unprotected null fields. 
Useful to check the length of data entry 
(Show unprotected) fields, 


Special Key Functions For Screen Save and Recall 


The Special Key Functions for Screen Save and Recall are com- 
monly used by all levels of IRMA users. These key functions 
provide a simple means of saving screens to disk and for storing 
screens for later recall. They were not included in the above 
| Tables because they require that you access E78 with the 
i optional arguments. (The access sequences were mentioned 
briefly during the initial instructions for activating E78.) 


Control & Print Screen 


This function allows you to save screens to diskette. This func- 

tion is only available when you are using the non-resident 

emulator. However, you may have both a resident and non- 

resident emulator available. If you ate using the resident 

| emulator, you simply need to exit and access the non-resident 
emulator with the specified filename to use this function. 

| When the CTRL and Print Screen (PrtSc) keys ate pressed 
simultaneously, the screen that is currently being displayed 

| is copied to a file on the diskette. When you first access E78, 
you must specify the filename in which to store these screens. 

: Each screen that you save is appended to the end of the file. 
For a complete view of the procedures involved, refer to the 

| following steps: 


STEP 1: If you have not specified To enter PC mode 
i a filename, exit emulator 


. mode by pressing both 

: SHIFT keys. 

| STEP 2: Enter: ‘To access non-resident 

E78 «filename emulator with specified 
filename in which to save 

screens. You may also 

specify a disk drive such 
as B:filename. 

: STEP 3: Watch screen; the same ‘To prepate for the screen 

screen that was displayed save 


[ when when you exited the 
emulator mode is redis- 
played. Locate the screen 
to be saved. 


| 3-9 


STEP 4: When you have the desired To save the screen 
screen displayed, press 
CTRL and PrtSc 


simultaneously. 


STEP 5: Repeat STEP 4 for each To save additional screens 
screen to be saved. 


Once you have specified a filename, you can use that filename 
repeatedly; however, you may want to sott screens according to 
content or application. In that event, you may access E78 with 
one filename, save certain screens, exit 3270 mode, and access 
E78 with a different filename, and save a different type of 
screen to that file. Even if you have specified a filename at 
some earlier point, you must specify that same filename or a 
new filename each time you access E78 for the purpose of saving 
screens. If you do not specify a filename when you access E78, 
you will not be able to save screens to diskette. 


The number of screens saved is limited only by the amount of 
memoty you have available on the diskette. It should be noted 
that to have both a resident and non-resident emulator active 
at the same time, your PC should be equipped with at least 
96K of memory. 


Control & End and End 
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The Control & End key function allows you to save up to nine 
screens in memory for later recall. This function is available 
with either the resident or non-resident emulator. The screens 
are saved in screen buffers, not on the diskette. This function 
is used in conjunction with the End key function which recalls 
a screen once it is saved. In order to use these functions, you 
must access E78 with a “/n” qualifier, where n is the number 
of screens you wish to have available. You do not need to specify 
a filename for this function. Follow the steps given below for 
the procedures required for this function. Assuming that you 
have not already specified a value for n: 


STEP 1: Exit 3270 mode by pressing To return to PC mode 
both SHIFT keys. 


STEP 2: Enter: E78/n (n can bea To enable screen store 
number from 1 to 9) 


STEP 3: 


STEP 4: 


STEP 5: 


STEP 6: 


Locate screens you want to 
store. (You can be in either 
resident or non-resident 
mode to use this function.) 


Press both CTRL and 
END simultaneously. 


Enter a value from 1-9 after 
the prompt, “Screen 
Memory for STORE.” 


Repeat STEPS 4 and 5 for 
each screen to be saved. 


To prepare for store 


To store screen 


‘To assign a value to the 
‘Screen Memory’ that can 
be used for later recall 


To store additional screens 


Once you have stored the screens, the END key is used to 
recall them. There is no special access to E78 requited to use 
this function and it is available from either the resident or 
non-resident version of the emulator. As long as you have not 
rebooted the PC since you stored the screens, they are available 
for recall at any time. 


Pressing the End key causes a prompt to be displayed on the 
status line, ‘SELECT SCREEN MEMORY FOR RECALL, Press 
a number key from 1 to 9 to recall a stored screen. Press 0 to 
return to the current 3270 screen. When you select a number 
from 1 to 9, that particular screen image is displayed on the 
screen. To re-display the screen that was present before the 
recall, enter 0. The following steps explain this procedure: 


STEP 1: If you are not in 3270 mode, To access 3270 mode 


STEP 2: 
STEP 3: 


STEP 4: 


access either the resident or 
non-resident emulator. 


Press END. 


Respond to prompt in the 
the status line by entering 
the number of the screen to 
be recalled. 


Repeat STEPS 2 and 3 for 
each screen to be recalled. 


To begin recalling screens 


To select specific screen 


To recall remaining 
screens 
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STEP 5: Press END. To recall screen 


STEP 6: Enter 0 after the prompt To recall the 3270 screen 
on status line. that was displayed before 
you began recalling the 
stored screens 


While a 'recalled' screen is being displayed, pressing ENTER 
will also return you to the original 3270 screen that was dis- 
played before the recall. Other keys may also achieve the same 
result; however, if it is a printable character it will be inserted 
into the original screen as it is redisplayed. DCA recommends 
that you use the END function and enter 0 after the prompt 
on the status line. This avoids inserting unwanted characters 
into the 3270 display. 


When a screen image is displayed, the message ‘Screen memory 
n is displayed at the right-most end of the status line. This 
message indicates that the screen image ‘n’ (1 thru 9) is dis- 
played. There are three error conditions that could occur. 
Messages appear briefly on the status line to indicate these 
error conditions. They are: 


Memory not allocated 
Memory empty 


Invalid number (not 1-9) 


Memory not allocated means that you have tried to store a 
screen without specifing the /n value. Memory empty means 
you have tried to recall a screen without storing one. Invalid 
number means you have entered a number outside the valid 
range of 1-9. 


Each screen image allocated to memory requires 4K bytes (4096) 
of system memory. This is in addition to the memory used by 
the resident emulator. It is recommended that at least 128K of 
memory be installed in the PC to accommodate full usage of 
this feature. 


Display mode function keys, such as CTRL & F1 or CTRL & F3 
(Color select or show attributes), may be used when viewing 
recalled screens 1n all modes available to the normal screen. 
You must be aware that saving a screen with non-displayed 
fields present allows that screen to be later recalled with that 


non-displayed field displayed. A particular caution is appro- 
priate when that non-displayed field contains a password that 
would be displayed when the screen is later recalled. You are 
cautioned against STOREing screens containing privileged or 
secure information in non-displaying fields. 


Since you can access the store and recall functions from either 
the resident or non-resident emulators, you can also recall any 
of the screens stored from either emulator, regardless of the 
emulator in use at the time of the store. For example, you have 
saved nine screens throughout your 3270 session. Some of them 
were stored during a non-resident session and some were stored 
during a resident session. Now you would like to recall the 
screens and save them to a disk file. Remember that to save 
screens to a disk file, you must be using the non-resident 
emulator. Exit whatever emulator you are using; re-access E78 
with E78 «filename >. You can now recall the nine stored 
screens and save them to diskette. 


Remember earlier in this chapter there were four ways to access 
E78 discussed. If you plan on storing screens and/or saving 
screens to diskette, it would save you some time if you initially 
accessed E78 with both the specifications of n and filename. 
That way you would not have to exit 3270 mode and re-access 
E78. Refer back to STEP 2 under the topic, ‘How to Use the 
Terminal Emulator: 


The following table summarizes the above key functions. 


Table 3-3 Screen Save and Recall Functions 


Key Combination Function 
CTRL & Prt Sc Copies screens to disk. You must be using 


(Saves screens to disk) the non-resident emulator to use this 
function. You must also specify a filename 
when you access E78. 

CTRL & END Stores up to 9 screens in memory. You can 

(Screen Store) use this function with either the resident 
or non-tesident versions of E78. You must 
specify the /n value when accessing E78. 


END Recalls screens that have been stored using 
(Screen recall) the CTRL & END Function. 
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Simply recalling stored screens does not require accessing E78 
with a special qualifier (n or filename). However, if you want 
to save those recalled screens to diskette you do need to specify 
a filename when you access E78. If the PC has been rebooted 
between the time you stored the screens and the time you tty 
to recall them, the memory in which the screen were stored is 
empty. The screens are not permanently stored. As long as the 
PC is not rebooted the screen remain in memory and can be 
recalled at any time. 


Qvetom Moccaao 
[9] oOQvwviirVvV PENAL ON A ZI VEbpI VV 


All IBM 3278/79 terminals reserve one line as a status line for 
display of system messages such as error codes. The PC does 
not display some characters required for system message sym- 
bols. In these cases, the PC displays an alternate PC character 
in place of the 3278 character. The following chart shows 3278 
system message symbols, their corresponding PC symbol, and 
the message represented by the symbols. 


These symbols are typically used in combination. Examples of 
these combinations are illustrated in the next section, “Typical 
Combination Symbols. 


3278-2 PC Message 


Program 


Used with X — to indicate symbol keyed is not 
available 


Insert mode 


Online to a 3276 controller 


Used in combination with other symbols 
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3278-2 PC 


EI 
EXIBDI 


os 


Message 


Used in combination with other symbols 
Used in combination with other symbols 
Used to indicate "not working" 

Shift lock 

Operator 

SNA attachment 

Alpha lock 

Unowned session 


Operator's program 


Used with X and nn to indicate communication link 
ettor 


Used in combination with other symbols. 
Used in combination to form — +z— 

Used in combination to form other symbols. 
Left half of clock 

Right half of clock 

Input inhibited 

Used in combination to form other symbols 
Used in combination to form other symbols 
Right portion of Printer failure message 


Left half of security key 
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3278-2 PC Message 


Right half of security key 
Online to a 3274 controller 
BSC or Non-SNA attachment 
Symbol for card 


System operator 


Typical Combination Symbols 


X—f Function Unavailable 

XOT Security key off 

XO- Z Printer not working 

XO-O d >) Printer busy 

X OX Operator unauthorized for specified printer 


X«- (OO Go elsewhere, action has been attempted which is 
invalid for field 


X © #? Operator entered invalid number in field 

XO 4-9 Message received from system operator and rejected 
c Z_ Communication link producing errors 

Q -O NN Printer assignment 


O DS e Printer active 


| Chapter 4 


| File Transfer 


Pop Ae nth. 2 


Introduction 


| Today’s business man and woman have greater communication 
needs than ever before. Access to the full computing power 
j and database of the mainframe computer is now a necessity, 


and possessing the necessary terminal capabilities is a major 
first step towards this goal. But this mainframe access is not 
complete without the ability to transfer information in either 

| direction between your PC and the host computer. This ability 
is called file transfer. 


With this capability, you are able, as a personal computer user, 
P y, you P al comput 

to transfer the data required for your PC applications directly 

i to and from the mainframe. 


| File transfer offers you a number of very attractive advantages. 

For instance, you are able to gain access to the information you 

require without relying on such time-consuming manual data 

transfer methods as reporting and data entry. In addition, 

] since file transfer can relieve the mainframe computer of word 
processing, executive decision-making applications, such as 

] sptead sheets, and other applications more appropriately 
performed on the personal computer, you and othets benefit 

| from a more efficient use of all data communications systems. 


| DCA provides as part of the IRMA package, two file transfer 

utilities. IRMA/ink FT78T, the transfer facility for TSO environ- 
ments and IRMAJink FT78X, the transfer facility for CMS 
environments. 


Features 


Files 


M Provides file transfer under both CMS and TSO IBM main- 
frame operating environments. 


E Supports both mainframe to micro (download) and micro 
to mainframe (upload) transfer. 


Supports transfers either to or from the IBM mainframe. 


For simple file transfer, provides a HELP function and 
question-and-answer format. 


The IRMA file transfer programs supplied on your file transfer 
diskette ate compatible with both Rev. 1.1 and 2.0 of DOS, all 
revisions of E78 software, and firmware revisions 3.14 and above. 
The following five files are supplied on your program diskette. 
The executable file transfer program and PC78TABS.OVR 
must reside in the default disk drive. If they do not, the file 
transfer will not work. 


B PI78X.EXE Executable file transfer program for 
CMS XEDIT 
FI78LEXE Executable file transfer program for TSO 


8 PC78.XED IRMA XEDIT profile for use with the 
CMS file transfer utility. Instructions for 
use of this profile are provided later in 
this section. 


B PC78TABSOVR Must be on file transfer diskette 
B FISAMPLETXT Sample text file for testing file transfer 


Environment 
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The host environment is limited to VM/CMS, using XEDIT, 
or MVS/TSO using the EDIT function of TSO. The PC must 
have at least 128K of memory. If you are using the VM/CMS 
transfer environment, your instructions begin on the next 
page. MVS/TSO user instructions follow the CMS section. 


IRMA link FT78X 


General Information 


| As an IRMAl/ink FT78X user, you need to have some familiarity 
with the CMS XEDIT editor. If you do not have this knowledge, 
see your MIS or other technical support personnel before 
attempting any file transfer procedures. 


The IRMAl/ink FT78X program may be used in either of two 
formats. The first format uses a question-and-answer dialogue 
to provide information for the transfer. DCA recommends the 
use of this question-and-answer format for all users except 

3 those who have already become vety familiar with IRMA CMS 
file transfer. 


The second format places all information in one command line. 
This format also allows you to add “switches” to the command 
line for verification and confirmation of information used in 
the file transfer. This format is also useful with batch files. 


IRMAJ/ink FT78X file transfer allows the transfer of binary files 
only from PC to PC. It does not support the transfer of host 
binary files to PC's. 


When the file is sent to the host, the binary data is translated 
into an intermediate text file format. This text file is stored 
in a special format which is not directly usable on the host. 
When the file is transmitted back to a PC, it is reconstructed 
as PC binary data. 


This binary mode is implemented for such operations as the 
transfer of .BAS type files from PC to PC. To successfully 

4 transfer binary data, the IRMA XEDIT profile must include 
: the option of lower-case characters, or the host filetype must 
allow lower case by default. 


The IRMA file transfer diskette contains a help file that lists 
commands for both transfer formats, as well as switch values 

] important to the single line format. For more information 
concerning this help file, see the topic called ‘IRMAlink FT78X 
| Help File’ 


ASCII TO EBCDIC Conversion 


EBCDIC conversion occurs when a file is sent from the PC 
to the host. The following ASCII characters are, in all cases, 
translated by PC78TABS.OVR into the equivalent EBCDIC 
characters. 


ASCII EBCDIC 


] | 


d zd 


CMS/ XEDIT Operation Losses 
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Due to the use of POWERINPUT in XEDIT to improve per- 
formance on a SEND, two ASCII characters ate not available: 
"^" and “[” ate reserved as special characters. The “ ^"and "[" 
characters are effectively changed to spaces and are NOT recover- 
able on subsequent receives. If either character is encountered 
during a send operation, a warning is displayed on the CRT. 


IRMA/ine FT78X setup procedures are described below. 


Setup Procedures For IRMAlink FT78X 


Before using CMS file transfer, you must perform the follow- 
ing setup procedures: 


STEP 1: Access the E78 program ]o gain access to the 
mainframe 


STEP 2: Log on to the mainframe To be able to enter 
and access the CMS XEDIT XEDIT profile 


mode. 
STEP 3: Enter the CMS XEDIT To prepare the mainframe 
profile. for transfer 


(The profile is listed after the 
sample of the HELP screen) 


STEP 4: Exit 3270 mode by pressing To return to PC mode 
both SHIFT keys 


At this point, it would be useful to display the IRMA/ink 
FT78X help screen. This is an optional step. 


STEP 5: Enter FT78X/H To display the HELP screen. 


When you enter FT78X/H, the PC displays the following 
information: 


FT78X/H — Help File 
The file transfer utility may be used in either of two formats: 


FT78X 
or 
FI78X {switches} «lo 


JUI iv 


«host name» «host. typ 


D Q 
V 


The first format provides information through a question-and- 
answer dialogue. The second format contains all information 
in the command line and is useful with batch files. If the second 
format includes fewer than the required number of items, you 
are prompted for the remaining items. 


Global Switches 


/B — Binary transfer mode 
/G — Confirm the pending operation prior to execution 
/F — Display host file size on receive 


/Q — Override the delete-file query and automatically delete 
the local file if it exists 


/R — Receive a file from the host 
/S — Send a file to the host 
/V — Display data on CON: during the transfer 


CMS Profile 


The PC78.XEDIT profile, sets up the functions used by 
IRMAJink FT78X version of IRMA file transfer. The profile must 
be entered at the host with the IRMA filename and XEDIT 
filetype. The profile must be entered and saved once for each 
USERID using the file transfer programs. The profile may be 
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entered in lower or upper case, but it must otherwise be entered 
EXACTLY AS SHOWN. Enter the following profile: 


SET SCALE OFF 
SET NUMBER ON 
SET CURLINE ON 3 
SET CMDLINE BOTIOM 
SET NULLS ON 

SET PF6 QQUIT 
SET PF18 QQUIT 
SET PF7 FORWARD 
SET PFI9 FORWARD 
SET PF8 TOP 

SET PF20 TOP 

SET PF9 FILE 

SET PE21 FILE 


The following optional item allows lower case as the default 
(must be set for binary transfer), and may be included in the 
profile if desired. 


SET CASE MIXED - 


When you have entered the profile, save it as PC78.XEDIT 
before exiting 3270 emulator mode. Turn to the following 
pages for instructions concerning the question-and-answer 
transfer format. 


Using IRMAlink FT78X 
In Question-And-Answer Dialogue Mode 


If you have not already completed the procedures for setup, 
do so at this time. To transfer files under CMS after setup is 
accomplished, perform the following steps: 


STEP 1: Enter 3270 mode. Access To access CMS 
E78 or press both SHIFT 
keys if emulator is resident. 
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STEP 2: Log on to mainframe and To transfer data, you must 
access CMS XEDIT mode. have both CMS XEDIT 
available on one end of 
the transfer and the PC 
file on the other 


STEP 3: Exit 3270 mode by pressing To return to PC mode 


both SHIFT keys 

STEP 4: Enter FT78X. This ‘To activate the question 
command can be entered and answer format 
only in PC mode. 


The following series of questions are displayed when you enter 
FI78X. Answer the questions using the explanations provided 
below. 


PROMPT: Confirm selections prior to transfer? (Y,N) 


ENTER: Y for Yes, N for No 


This selection causes a line similar to the following text line 
to appear on the screen at the end of the question and answer 
prompts, but before the actual transfer takes place. Answer- 
ing Yes causes a listing of the file received and the save file: 


Receive from host < filename >, save as local < filename >. 
This confirmation is followed by: 
OK to continue? [Y/N] 


If the filenames are listed correctly, enter Y for Yes. If file- 
names are not correct, enter N for No, and the IRMAl/ink 
FT78X program is terminated. Restart the IRMA/ink FT78X 
program at Step 1 above to re-specify the operation. 
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PROMPT: Transfer direction. (H/S] 


R = Receive a file on the PC from the host 
S = Send a file from the PC to the host 


ENTER: R or S 
PROMPT: Transfer binary file. (Y/N] 


ENTER: Y or N 
If a binary data file is to be transferred, enter Y for Yes. 


IRMA binary file transfer allows the transfer of binary files 
from PC to PC only. It does not support the transfer of host 
binary files to PC’s. 


PROMPT: Display copy to CON: (Y/N] 


ENTER: Y or N 


If you want to view the data on the screen as it is transferred, 
enter Y for Yes. To avoid interruptions in the transfer, do 
not alternate between the PC and 3278 modes while the 
transfer is taking place. 


For the transfer to take place, the program must know the 
source and destination files. Whether sending or receiving a 
file, prompts for supplying information are in the same order. 
You must always supply the PC filename, called the local file- 
name, and the host filename and filetype. The IRMAJink 
FT78X ptogram interprets which file is source and which is 
destination. 


PROMPT: What is the local filename? 


Must be one word and an acceptable PC-DOS name. 
It may include a drive specifier. 


ENTER: «filename» 


PROMPT Host filename 


This filename must match your host system naming con- 
ventions, except that the name should not include the data 
set type extension. 


ENTER: «filename» 
PROMPT: What is the filetype on the host? 


Because it allows variable length records of up to 255 char- 
acters, XEDIT is the recommended filetype. However, you 
may also use DATA (80 characters) or SCRIPT (132 characters). 


To transmit a file from the host to the PC, the file must 
already exist at the host. If the PC is receiving the file and the 
filename already exists, the following question is displayed: 


PROMPT: Do you want to delete and write over that file? [Y/N] 


ENTER: Y or N 


If Y is entered, the file is replaced with the file from the 
mainframe. 


If N is entered, you are prompted by FT78X to re-specify 
the filename. 


If the host filename is the destination (on send) and is non- 
empty, a clear-data option is offered. Unlike the local file, 
which can be deleted, the actual host file is not deleted — only 
the contents of the file. 


PROMPT: Host filename already exists, clear it? [Y/N] 


ENTER: Y ot N 


Y clears the file and allows the user to continue. 
N terminates the file transfer program. 
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If you have specified the confirm option, the text line specifying 
the receiving and sending files is displayed on the screen. At this 
point, you may continue or terminate the file transfer program. 


The transfer is complete when the A, B, or C prompt appears. This 
prompt is your only indication that the transfer is complete. When 
you bave received the prompt, you may continue. If you have com- 
pleted all activity with the host, return to 3270 mode by pressing 
both shift keys or entering E78, and log off the host. 


How To Use The Single Command Line Format 


If you have not already completed the CMS setup procedutes, 
do so at this time. To transfer files under CMS after setup is 
accomplished, perform the following steps: 


STEP 1: Enter 3270 emulator mode. To begin transfer session 
(Enter E78 or if you have 
a resident version, press 


both SHIFT keys.) 


STEP 2: Log on to the mainframe You must be in XEDIT 
and access the CMS XEDIT mode before transfer can 
mode. be attempted 


STEP 3: Exit 3270 emulator mode. ‘To return to PC mode. The 
file transfer utility must 
be initiated in PC mode. 


STEP 4: Enter (in one line) To activate transfer 


FT78X {switches} <local filename > 
«host filename? «host filetype > 


See the list below for acceptable switch values which must also 
be entered on the same line as the command. If you fail to 
include all of the necessary switches, you will be prompted for 
those omitted. 
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Global Switches 
? . . [B — Binary transfer mode 
/C — Confirm the pending operation prior to execution 
/F — Display host file size on teceive 


i /O — Override the delete-file query and automatically 
l delete the local file if it exists 


/R — Receive a file from the host 
/S — Send a file to the host 
/V — Display data on CON: during the transfer 


The transfer is complete when the A, B, or C prompt appears on the 
screen. This prompt is your only indication that the transfer is com- 
plete. When you receive this prompt, you can continue with whatever 
activity you want. If you have no other use for the host 3270, return 
to 3270 mode by pressing both shift keys or entering E78, and log 

off the host. 


IRMAlink FT78T 


As an IRMAlink FT78T user, you need to have some familiarity 
with the TSO EDITOR. If you do not have this knowledge, sec 
your MIS or other technical support personnel before attempt- 
ing any file transfer procedures. 


IRMAIink FT78T may be used in either of two formats. The 

first format uses a question-and-answer dialogue to provide 

) information for the transfer. DCA recommends this question- 
and-answer format for all users except those who have become 

very familiar with IRMAJink FT78T. 


The second format places all information in one command 

i line. This format also allows you to add “switches” to the com- 
‘ mand line for verification and confirmation of information 

j used in the file transfer. The single line format is also useful 
with batch files. 


IRMA file transfer allows the transfer of host binary files only 
| from PC to PC; it does not support the transfer of host binary 
files to PC's. 
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When the file is sent to the host, the binary data 1s translated 
into an intermediate text file format. This text file is stored in 
a special format which 1s not directly usable on the host. When 
the file is transmitted back to a PC, it is reconstructed as PC 
binary data. 


This binaty mode is implemented for such operations as the 
transfer of .BAS type files from PC to PC. To successfully trans- 
fer PC binary data, the IRMA XEDIT Profile must include the 
option of lower case characters, or the host filetype must allow 
lower case by default. 


Under TSO, files usually contain line numbers; however, files 
on the PC do not have line numbers. Files sent to the host 
from the PC are automatically numbered, beginning at 10 
and incremented by 10, for a maximum 9,999 lines of text. 
Files received by the PC are temporarily renumbered, begin- 
ning at 1 and incremented by 1, for a maximum 99,999 lines. 
Before the file is written to the diskette on the PC, these line 
numbers are automatically removed. 


In addition, by including the NONUM operand, un- 
numbered data sets can be sent and received. This causes 
IRMAIink FT78T to ignore line numbers entirely and not 
attempt to renumber the data set on a receive. 


The TSO version of file transfer allows the user to fully specify 
the data set name and associated EDIT operands. The data set 


name may contain no imbedded spaces but may contain an 
extension (e.g. FISAMPLETXT). 


FI SAMPLE-TXT, for example, would be an incorrect name 
format, due to its imbedded space. The name may be as 
detailed as necessary, allowing easy specification of partitioned 
data sets. The operands may also be as detailed or as simple as 
necessaty and are not limited to a single word. Thus, users 
may add items such as ASIS (lower case) and/or NONUM 
(un-numbered data set). Several examples are included later 
in this discussion. 


The IRMA file transfer diskette contains a "help" file that lists 
commands for both formats, as well as switches used with the 
single line format. For more information concerning this help 


file, see the section called "ISO Help File’ 


ASCII To EBCDIC Conversion 


EBCDIC conversion occurs when a file is sent from the PC to 
the host. The following ASCII characters are, in all cases, trans- 
lated by PC78TABS.OVR into equivalent EBCDIC characters. 


ASCHE EBCDIC 


] | 


^ =] 


Operational Losses 
The EDIT mode of TSO changes the following characters to a 


(66.2? 
" 


:" during transfer: 


N } 


Even though E78 echoes the ASCII symbol, this results in a 
non-recoverable loss of information. 


For example, the following represents a table on the IBM PC, 
as sent to the mainframe using TSO/EDIT: 


0 1 2 3 4 5 678 9 AB CDE F 
en ae ee 8b 70^ 1p 9 +4, = / 
0 1 2 3 45 6 7 8 9 : E E o 
QAB CDEFGHIJKLMNO 
PQRS TUV WXYZI|[ \] = 
^" a bedefghij kl mno 
P qrt st uvwxyýyz {ùi } anx 
Below is the table as it was received on the PC back from the 
mainframe: 
0.1 2 3 4 567 89 AB C D E FE 
[DOCU ub Ebo 96 & o) (€ 3 = / 
01 23 45 6789: ; <=>? 
Q AB CDEFGHIJJKLM NO 
PQRS TUV WXYZL[: ] = 
: a bc de f g hi j k I mn o 
P qf st uv wxyz:ii:: 


IRMAJink FT78T setup procedures begin on the following page. 
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Setup Procedures For IRMAlink FT78T 
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Before using TSO file transfer, you must perform the following 
procedures: 


STEP 1: 


STEP 2: 


STEP 3: 


STEP 4: 


Access E78 by pressing both ‘To gain access to the 
SHIFT keys or entering E78. mainframe 


Log on to the mainframe ‘To key in the TSO profile 
and access the TSO EDITOR. 

The TSO READY prompt is 

displayed. (The TSO file 

transfer cannot be performed 


under the SPF EDITOR.) 

Enter the TSO Profile. ‘To prepare the mainframe 
The profile is listed after the for file transfer 

sample of the IRMA/ink 

FT78T Help screen. 


Exit 3270 mode by pressing ‘To return to PC mode 
both SHIFT keys. 


At this point it would be useful to display the HELP screen for 
a listing of the two formats and switches that can be used with 
the single command line format. 


STEP 5: 


Enter FT78T/H. To display HELP screen 


The screen displays the following information: 


FT78X/H — Help File 
The file transfer utility may be used in either of two formats: 


FT78X 

or 
FT78X {switches} «local name» 
«host. name» <operands > 


The first format provides information through a question-and- 
answer dialogue. The second format contains all information 


rian: kK L—-Cc-b £L EX Ure a ai 
In óhepemmandiss andis User vit babe nies Ic thesecona 


format includes fewer than the required number of items, you 
are prompted for the remaining items. 


Global Switches 


/B — Binary transfer mode 
/G — Confirm the pending operation prior to execution 


/O — Override the delete-file query and automatically delete 
the local file if it exists 


/R — Receive a file from the host 
/S — Send a file to the host 
/V — Display data on CON: during the transfer 
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TSO Profile 
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The IRMA file transfer programs require that certain statistics 
be set one time under the TSO EDITOR for each transfer user. 
These statistics are available under a command called "PRO- 
FILE.” You may view the profile from the mainframe READY 
prompt. To display the profile, enter the word PROFILE, and 
press ENTER or RETURN. The following profile should be 
displayed. 


CHAR(Q] * 

LINE(O] * 

PROMPT * 

INTERCOM * 

NOPAUSE * 

NOMSGID * 

NOMODE * 

NOWTPMSG * 

NORECOVER * 

PREFIX [xxxx] 

DEFAULT LINE/CHARACTER DELETE CHARACTERS IN 
EFFECT FOR THIS TERMINAL * 


The profile should contain all of the above parameters. It may 
include others as required by your system. All parameters fol- 
lowed by an asterisk should be included in the profile just as 
they are listed here. When the profile is displayed, it is dis- 
played in three lines, listing the parameters from left to right. 
If you need to change or add any of these parameters to your 
profile, refer to the next section, called ‘How To Set or Change 
Your TSO Profile’ Set your profile to match the one shown 
above. When your profile is correct and is successfully entered, 
save the profile. 


At this point, you have completed TSO file transfer setup 
procedures. To transfer files, follow the instructions provided 
in ‘Using TSO File Transfer In Question-And-Answer Dialogue 
Mode’ located later in this chapter. 


G 
i 


How To Set Or Change Your TSO Profile 


i To set or change any of the statistics within your TSO profile, 
enter: 


| PROFILE < statistic > 


where «statistic is the value to which you wish the profile 
statistic to be changed. For example, if your present profile 

| statistic is NOPROMPT and you wish to change the statistic 
to PROMPT, enter: 


PROFILE PROMPT 


If the profile change is successful, the READY prompt is dis- 
played on your screen. This prompt is your only indication of 

-a successful change. If the profile setting or change is in error, 
the following message is displayed: 


INVALID KEYWORD, < statistic > 
HEENTER 


| where «statistic? is the profile statistic in error. 


; To display the profile after a change, enter the word PROFILE, 
! and press ENTER or RETURN. 


| Using IRMAlink FT78T 
: In Question-And-Answer Dialogue Mode 


To transfer files under TSO after setup is accomplished, perform 
the following steps: 


STEP 1: Enter 3270 mode by pressing 
| both SHIFT keys if emulator 
is resident or by entering E78. 


5 STEP 2: Log on to Mainframe and To transfer data you must 
access TSO EDITOR. The have the TSO EDITOR 

| TSO READY prompt is available 

then displayed. 


STEP 3: Exit 3270 mode by pressing To return to PC mode 
| both SHIFT keys. 
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STEP 4: Enter FT78T. This com- To set up the transfer 
mand must be entered 
from PC mode. 


The following series of questions are displayed. Answer the 
questions using the explanations provided below. 


PROMPT: Confirm selections prior to transfer? [Y,N] 


ENTER: Y for Yes, N for No 


This selection causes a line similar to the following text line 
to appear on the screen at the end of the question and answer 
prompts, but before the actual transfer takes place. Answer- 
ing Yes causes a listing of the file to be received and the file 
to be saved. 


Receive from host « filename » , save as local « filename » . 
This confirmation is followed by: 
OK to continue? [Y/N] 


If the filenames are listed correctly, enter Y for Yes. If file- 
names are not correct, enter N for No, and the IRMAlJink 

FT78T program is terminated. ‘lo re-specify the operation, 
restart the IRMAJnk FT78T program. 


PROMPT Transfer direction. (R/S) 


R = Receive a file on the PC from the host 
S = Send a file from the PC to the host 


ENTER: R or S 
PROMPT: Transfer binary file. (Y/N) 


ENTER: Y or N 
If a binary data file is to be transferred, enter Y for Yes. 


IRMA binary file transfer allows the transfer of binary files 
ftom PC to PC only. It does not support the transfer of host 
binary files to PCs. 


PROMPT: Display copy to CON: (Y/N] 


ENTER: Y for Yes if the transferred data is to be displayed 
on the screen. 


To avoid interruptions in the transfer, do not alternate 
between the PC and 3278 modes while the transfer is 
taking place. 


For the transfer to take place, the program must know the 
source and destination files. Whether sending or receiving a 
file, prompts for supplying information ate in the same order. 
You must always supply the PC filename, called the local file- 
name, and the host filename and filetype. The IRMAIink 
FT78T program interprets which file is source and which is 
destination. 


PROMPT: What is the local filename? 


Must be one word and an acceptable PC-DOS name. It may 
include a drive specifier. 


ENTER: «filename 
PROMPT: What is the Data-set-name? 


ENTER: < data-set-name > 


This name must include a valid dataset type extension. 
PROMPT: What are the operands for host? 
ENTER: <operands> [none] 


“[none]” is the default. If no operands are required, simply 
entera <NL> or <ENTER>. 
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To transmit a file from the host to the PC, the file must 
already exist at the host. The destination filename should not 
exist prior to the transfer. However, if the destination filename 
does exist and 1s non-empty, a clear-data option is offered after 
all PROMPTS have been answered. If the PC is receiving the 
file and the filename already exists, the following question is 
displayed: 


PROMPT: Do you want to delete and write over that file? [Y/N] 


ENTER: Y or N 


If Y is entered, the file replaced with the file from the 
mainframe. 


If N is entered, you are prompted by FT78T to re-specify 
the filename. 


If the host filename is the destination (on send) and is non- 
empty, a clear-data option is offered. Unlike the local file, 
which can be deleted, the actual host file is not deleted — only 
the contents of the file. 


PROMPT: Host file already exists, clear it? [Y/N] 


ENTER: Y or N 


Y clears the file and allows the user to continue. 
N terminates the file transfer program. 


If you have specified the confirm option, the text line specifying 
the recetving and sending files is displayed on the screen. At this 
point, you may continue or terminate the file transfer program. 


The transfer is complete when the A, B, or C prompt appears on the 
screen, This prompt is your only indication that the transfer is com- 
plete. When you receive this prompt, you can continue with whatever 
activity you want. If you have no further use for the bost 3270, 
return to 3270 mode by pressing both shift keys or entering E78, 

and log off the host. 


| How To Use The IRMAlink FT78T 
| u Single Command Line Format 


To transfer files under TSO after setup is accomplished, per- 
| form the following steps: 


l STEP 1: Enter 3270 emulator mode. To begin transfer session 
| (Enter E78 or if you have a 
resident version, press both 


i SHIFT keys.) 


STEP 2: Log on to the mainframe You must be in EDITOR 
and access the TSO EDITOR mode before transfer can 
mode. be attempted 


STEP 3: Exit 3270 emulator mode. To return to PC mode. 
The file transfer utility 
| must be initiated in PC 
i mode. 


STEP 4: Enter (in one line) To activate transfer 


FT78T {switches} «local filename > 
i «host filename «host filetype > 


(See the following list for acceptable switches.) 


Global Switches 

/B — Binary transfer mode 
/C — Confirm the pending operation 

/O — Override the delete-file querry and automatically 
] delete the local file if it exists on the receive. At the 

host on send, deletes the only the contents of file, 

| not actual file. 

/R — Receive a file from the host. 
| /S — Send a file to the host 
i /V — Display data on CON: during the transfer. 


The transfer is complete when the A, B, or C prompt appears on the 
| screen. This is your only indication that the transfer is complete. 
When you receive this prompt, you can continue with whatever 
| activity you want. If you have no further use for the host 3270, 
. return to 3270 mode by pressing both shift keys or entering E78, 
| and log off the host. | 
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Sample IRMAlink FT78T Transfers 


Sample One: FISAMPLE.TXT 
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A copy of the sample test file, FISAMPLE.TXT, is to be sent to 
the host as the numbered, sequential data set, TESTTXT. The 


following dialogue achieves the transfer: 


PROMPT RESPONSE 

A> FI78T <RETURN> 
Confirm selections 

prior to transfer [Y/N] N <RETURN> 


Transfer direction (R/S) S <RETURN> 
Transfer binary file [Y/N] N «RETURN» 


Display copy to CON: N «RETURN» 

Local filename: FISAMPLETXT «RETURN» 
Data set name: TESTTEXT «RETURN» 
Operands: [none]: «RETURN» 


The transfer is complete when the A, B, or C prompt appears on the 
screen. This is your only indication tbat the transfer is complete. 
When you receive this prompt, you can continue with whatever 
activity you want. If you bave no furtber use for the bost 3270, 
return to 3270 mode by pressing both shift keys or entering E76, 
and log off the bost. 


Sample Two: Partition Transfer 
A copy of the member, MEMI, in the partitioned, numbered 
data set PPS.DATA, is to be stored in the IBM PC as FILE1.DAT. 
The following dialogue achieves the transfer. 
PROMPT RESPONSE 
AP FT78T «RETURN» 


Confirm selections 
prior to transfer [Y/N] N <RETURN> 


Transfer direction (R/S] R «RETURN» 
Transfer binary file (Y/N) N <RETURN> 


Display copy to CON: N <RETURN> 
Local filename: FILEI.DAT «RETURN > 
Data-set-name: 1. PPS.DATA(MEM1) 
« RETURN > 
or 
2. PPS(MEM1) 
« RETURN» 
Operands: [none]: 1. «RETURN» 
or 


2. DATA <RETURN> 


When entering the data set name, the first entry includes the 
filetype and, therefore, does not require the filetype to be 
specified as an operand. If using the second entry, the filetype 
must be entered as an operand. When entering the data set 
name and operands for this example, match the numbered 
tesponses for each entry. 


The transfer is complete when the A, B, or C prompt appears on the 
screen. This is your only indication that the transfer is complete. 
When you receive this prompt, you can continue with whatever 
activity you want. If you have no further use for the host 3270, 
return to 3270 mode by pressing both shift keys or entering E78, 
and log off the host. 
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Sample Three: Binary Transfer 
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The BASICA program, PROG.BAS, is to be sent to the host 

as TEMPPROG.DATA. Since the binary transfer mode is to be 
used, lower case is required on the host. The following dialogue 
achieves the transfer. 

PROMPT RESPONSE 

A> FI78T «RETURN» 


Confirm selections 
prior to transfer (YIN) N « RETURN 


Transfer direction (R/S) S «RETURN» 
Transfer binary file (Y/N] Y «RETURN» 
Display copy to CON: N «RETURN» 


Local filename: PROG.BAS «RETURN» 
Data set name: TEMPPROG.DATA «RETURN» 
Operands: [none]: ASIS < RETURN > 


The transfer is complete when the A, B, or C prompt appears on the 
screen. This is your only indication that the transfer is complete. 
When you receive this prompt, you can continue with whatever 
activity you want. If you bave no further use for the host 3270, 
return to 3270 mode by pressing both shift keys or entering E76, 
and log off the bost. 


Sample Four: Single Command Line 


To perform the same transfer described in the previous example, 
this time using the single command line format, enter the 
following data: 


FT78T/S/B PROG.BAS TEMPPROG.DATA ASIS 
or 


FI781/S/B PROG.BAS TEMPPROG DATA ASIS 


Note that in the first case, DATA is specified as part of the 
data set name, while in the second case, DATA is an operand. 


The transfer is complete when the A, B, or C prompt appears on the 

| screen. This is your only indication that the transfer is complete. 
When you receive this prompt, you can continue with whatever 
activity you want. If you have no further use for the host 3270, 
return to 3270 mode by pressing both shift keys or entering E78, 
and log off the host. 


Sample Five: PC-Io-PC Transfer 


Using the binary transfer mode, first upload the specified file 
to the mainframe. When the file is located on the mainframe 
in its storage state, other PC’s, using the same file transfer util- 
ity, may access the file and download it to a PC. The file is sent 
to the PC in its original state (BAS or WORDSTAR™ format). 


The transfer is complete when the A, B, or C prompt appears on the 
screen. This is your only indication that the transfer is complete. 
When you receive this prompt, you can continue with whatever 
activity you want. If you have no further use for the host 3270, 
return to 3270 mode by pressing both shift keys or entering E78, 
and log off the bost. 


Sample Six: To Specified Disk Drive 


To specify an alternate disk drive for the file coming from the 
mainframe, precede the destination filename with the device 
name, such as B:filename or C:filename. 
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IRMA is a printed circuit board which plugs into the IBM PC 
System Unit. The board (card) can be installed in any slot in the 
PC and provides a back panel BNC connector for attachment 
by coaxial cable to either a 3274, 3276, or integral controller. 


IRMA operates in a stand-alone mode, using an on-board 
microprocessor to handle the 3270 protocol and screen buffer. 
Whenever powet is applied to IRMA, it responds to commands 
from the controller as if an IBM 3278 terminal were attached 
to the coaxial cable. The IRMA screen buffer is accessed from 
the PC System Unit as an I/O device, the device codes being 
220H to 227H. IRMA does not occupy any of the memory 
address space. 


To meet the requirements of the 3270 protocol, the Decision 
Support Interface (DSI) uses high-speed microprocessor tech- 
nology that is independent of the 8088 microprocessor of the 
System Unit. This allows the user to ignore the timing require- 
ments of 3270, and operate with a buffer of data just as the 
3278 screen does. 


When operating, the DSI takes commands from a four-byte 
dual-ported register array in addresses 220H to 223H. This 
array is accessed by I/O from the System Unit. The four single 
byte words are arranged as the command and up to three 
arguments. Command words allow the System Unit program 
to read or write bytes in the screen buffer, send keystrokes, and 
access the special features available on the DSI. 
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This array is also handled on the DSI by the microprocessor 
which manages the 3270 protocol. When the DSI is idle 
between messages from the controller, any commands left in the 
atray by System Unit programs are processed as required. This 
processing occurs only when the higher priority 3270 commu- 
nication is idle. This idle state is indicated by a busy/done flag 
mechanism for both the DSI and System Unit microprocessors. 
This allows the System Unit to declare that a new command is 
available to the DSI, and for the DSI to signal the completion. 
of this command. 


COAXIAL CABLE 


| (TO 327X CONTROLLER) 


8K RAM 
BUFFER 
MEMORY 


COAX 
TRANSMITTER 
DP8340 


COAX 
RECEIVER 
DP8341 


MICRO- 
PROCESSOR 
8X305 


DUAL PORTED REGISTER 


SYSTEM UNIT BUS 


Major Component Definitions 


8X305 Microprocessor 


The 8X305 microprocessor provides the intelligence required 
for 3270 protocol. Polling and answering, data transfer, hand- 
shaking, and screen buffer maintenance are performed by this 
processor. 


DP8340 and DP8341 3270 Coax Transmitter/Receiver Interface 


These two IC’s provide interface from the microprocessor to 
the 3270 coaxial cable. Serialization and deserialization of data 
take place in these two parts. 


Screen Buffer 


The DSI contains 8K bytes of fast RAM memory for screen 
buffers and temporary storage. These 8K bytes represent 3K 
bytes each for the screen and Extended Attribute buffers, 
leaving 2K bytes for local storage used by the 8X305 processor. 


Dual-Port Register Array 


The four-byte dual-ported register array is shared by the 
8X305 and System Unit 8088 processors. These registers are 
used for all communication between the two microprocessors. 
Data to be transferred from one processor to the other is written 
into specific locations (addresses) in the array (220H-223H), 
and the "Command Request” flag (226H) is set. When the 
receiving processor has read the register, this flag is cleared. 
Each processor can test the state of this flag to see if data trans- 
fer can begin, and to determine when the transfer is complete. 
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Operation 


The dual-ported communication atray is used to pass com- 
mands from the System Unit and its program to the DSI. The 
registers ate organized as four I/O addresses (220H to 223H), 
using one eight-bit word at each address. The base address 

of the standard DSI command is 220H. Arguments for the 
command are placed into addresses 221H, 222H, and 223H. 
Standard command operation for the DSI requires the user 
program to set values into the dual port register as appropriate 
for each command. First, the user program sets the "Command 
Request" flag. IRMA then reads the data, performs the opera- 
tion, and leaves any resulting data in the dual port array. The 
Command Request flag is cleared at that time. 


Sixteen commands are defined for the DSI program. The 
following table lists these command codes and their values. 


Code Command Definition 
0 Read buffer data 
1 Write buffer data 
2 Read status/cursor position 
3 Clear main status bits 
4 Send keystroke 
5 Light pen transmit 
6 Execute Power-on-Reset 
7 Load trigger data and mask 
8 Load trigger address 
9 Load attention mask 
10 Set terminal type 
11 Reserved — Do not use 
12 Read terminal information 
13 No-op 
14 Return revision ID and OEM number 
15 Reserved — Do not use 


The argument structures related to each command code are 
detailed in the "Command Descriptions” section. 


Programming Considerations 


| The DSI is accessed as an I/O device on the System Unit bus. 
It uses eight I/O device codes, 220H through 227H. Device 

| codes 220H, 221H, 222H, and 223H are a dual- access register 
array attached to both processors. The four bytes are used to 

| pass commands from the 8088 to the DSI and to return any 
answers. Device codes 224H and 225H are reserved for future 
use. Device codes 226H and 227H are used for Command 
Request and Attention Request flags, respectively. 


All commands use Word 0, device code 220H, as a command 
selection register. To begin a command, the program must set 
Word 0 equal to the command number. The other three words 
are used to pass the arguments of the command. When the 
specified command is completed, Word 0 contains the main 
status bits, and the other three words contain output data. 


When a command is sent to the mainframe by a user or by an 

| automated PC process, the terminal is placed into a waiting 
state until the command is completed. During this waiting 

| period, the system places an "X" on the status line at row 0, 
column 8 of the screen buffer. This "X" remains on the status 

| line until the command is completed. Before any new com- 
mand is sent, the “X” must have disappeared. Note that the 

| system may rewrite this "X" position several times before the 
command is actually completed. During this time, the ^X" 

| may flicker and appear at times to be cleared, while not actu- 
ally being so. 


If you ate sending keystrokes through a user program instead 
of directly ftom the keyboard, your program should do the 
following to check for the X clock. 

. Clear Buffer Dirty in Main Status 

. Check Buffer Dirty for 100 ms to 200 ms 

. If Buffer is not clear, go back to step 1 

. If Buffer stays clear, check X position 

. If X present, wait until clear 


QN A A uU Ne 


. When position has been clear for 100 ms, Clear Main 
Status bits 


| 7. Send next command 


5-5 


Programmer's Notes on Status Bits 
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Main Status bits indicate specific conditions. The "Aux Status 
Change" bit is set anytime the Aux Status changes. The 
“Trigger Occurred” bit is set whenever the trigger data match 
occurs (see Load Trigger Data and Mask command (7), “Com- 
mand Description" section). The "Key Buffer Empty" bit is set 
when the key scan code buffer is empty (see Send Keystroke 
command(4), ‘Command Descriptions’ section). The “Unit 
Reset” bit is set whenever the controller sends a 3270 reset 
command. The “Buffer Modified” bit is set when any buffer 
write occurs. The “Cursor Position Set” bit is set whenever the 
controller positions the terminal’s cursor in the buffer. 


The “Aux Status” bits are defined as follows: The “Unit Polled” 
bit is set by a poll command. This bit clears after reading. 
Since the controller polls about 1,000 times per second, this 
status bit 1s set often. The other 6 Aux status bits are defined 
exactly as 3270 protocol defines them. 


The "Command Interrupt Request" bit should not be used 
to tell when another command can be started. The hardware 
flag "Command Request" must be used for this purpose. The 
"Command Intetrupt Request" bit clears when a command is 
begun, and is set at the end of the command. However, it is 
not cleared immediately upon "Command Request”. 


Since the "Key Buffer Empty" bit does not clear immediately 
upon the "Keystroke" command, the empty bit, used to check 
the buffer before sending the keystroke command, is guaran- 
teed valid only if no command is in progress. Again, use the 
hardware flag to check for a command in progress before 
checking the empty flag bit. 


The Main Status in Word 0 is updated each time any of the 
conditions specified occurs. This word can be read and used 
with the above limitations at any time. The "Read Status" 
command is not necessary except to read the "Aux Status" or 
"Cursor Position". The returned Main Status byte consists of 
8-bit flags as follows: 


Bit Meaning 

7 (MSB) Aux Status change has occurred (*) 

6 Trigger Occurred (*) 

5 Key Buffer Empty 

4 Fatal IRMA hardware error 

3 Unit Reset by controller (*) 

2 Command interrupt request ( + ) 

1 Buffer Modified (*) 

0 Cursor Position Set, or search backward (*) 


(*) = Bits which must be cleared by user program 


(+) = Bit allows the attention request/intetrupt request 
mechanism to be used with commands. Pro- 
grammed I/O operation should use the hardware 
flag for all busy/done checking. 


(MSB) = Most Significant Bit 


The bit flags in the Aux Status are defined as follows: 


Bit Meaning 

7 (MSB) UNUSED 

6 Unit Polled since last Status Re: 
5 Sound Alatm 

4 Display Inhibited 

3 Cursor Inhibited 

2 Reverse Cursor Enabled 

1 Cursor Blink Enabled 

0 Keyboard Click Enabled 


Command Descriptions 
DEREN 


Read Buffer Data Command (0) 
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For a read data command, Word 0 is set to zero. Word 1 is the 
low order 8 bits of the buffer address to be read. Word 2 is the 
high order 3 bits (right justified) of the address. Word 3 is 
unused. Upon completion of the command, Word 2 contains 
the associated Extended Attribute Data, and Word 3 contains 
data from the specified buffer location. 


Internal IRMA screen buffers correspond to supported termi- 
nal types: Mod 2, 2000 characters (25 lines by 80 characters); 
Mod 3, 2800 (35x80); and Mod 4, 3520 (44x80). In each case, 
the last line represents the status line. Even though the screen 
is displayed with the status line at the bottom of the screen, 
this line is actually the first line in memory. The ‘DSI Screen 
Buffer’ section provides in table form the starting addresses for 
each line of each supported terminal type. 


The Read Data command returns the buffer data, correspond- 
ing EAB data, and the main status. Each command returns 
main status in Word 0. 


Word Value Input Output 
0 0 Command to DSI Main Status 
1  ADDR(L) Address (low) to read UNUSED 
2 ADDR(H) Address(high)to read ^  EAB* Data from DSI 
3 DATA UNUSED Data from DSI 


* EAB — Extended Attribute Buffer (Refer to Attribute 
Character explanations later in this chapter. 


Write Buffer Data Command (1) 


The write data command is used to write (modify) the con- 
tents of the screen buffer. Like read data, Word 1 and Word 2 
contain the address of the buffer location to which data is to 
be written. Word 3 is the data to be written. At command 
completion, the buffer is updated and main status returned. 


Word 
0 


1 
2 
3 


Value 


1 
ADDR(L) 
ADDR(H) 

DATA 


Input 
Command to DSI 
Address (low) for write 


Address (high) for write 


Data for write 


Read Status/Cursor Position Command (2) 


This command reads the current status and cursor position 

from the DSI. The status is returned as two bytes of bit flags. 
The cursor address is in the same format as the buffer address 
in read/write data commands. 


Word 
0 


1 
2 
3 


Value 
2 
ADDR(L) 
ADDR(H) 
AUX 


Input 

Command to DSI 
UNUSED 
UNUSED 
UNUSED 


Clear Main Status Bits Command (3) 
This command clears one or more of the main status bits. 


Word 
0 


1 
2 
3 


Value 
3 
UNUSED 
UNUSED 
MASK 


Input 

Command to DSI 
UNUSED 
UNUSED 

Bit clear mask 


Output 


Main status 
UNUSED 
UNUSED 
UNUSED 


Output 

Status 

Cursor address (low) 
Cursor address (high) 
Aux status 


Output 
Main status 
UNUSED 
UNUSED 
UNUSED 
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Five of the main status bits are set by specific conditions, but 
cleared only upon command. This allows each bit to be tested 
and cleared by different sections of the program. The clear 
mask conttols bits to be cleared. For each bit set to 1 in the 
clear mask, the corresponding bit in the status is cleared (i.e. 
set to 0). The clear mask can be used to reset multiple bits. 
Note that the returned status reflects the status AFTER the 
clear command has been executed. 


For ease of implementation, Word 0 is always maintained as 
the most current status. The normal program sequence would 
include the following: a read and test of Word 0, a branch on 
condition to a service routine specific to the bits found to be 
set, and the Clear Main Status Bits command. 


Send Keystroke Command (4) 


The send keystroke command causes the DSI to send the con- 
troller a key scan code. This is the function used to simulate a 
key active condition. The key scan code is the exact code which 
a 3278 terminal would normally send, NOT an ASCII or EBC- 
DIC character code. 


Word Value Input Output 
0 4 Command to DSI Main status 
1 UNUSED UNUSED UNUSED 
2 UNUSED UNUSED UNUSED 
3 CODE Key scan code to send UNUSED 


This command causes the Key Buffer Empty flag in the status 
byte to clear. It also checks the status of the Command Request 
flag. The Key Buffer Empty flag is guaranteed to be valid 
when a command is not in progress. Before the key scan code 
can be sent, the Key Buffer Empty flag must have a value of one. 


Send Selector Pen Location (5) 


This command causes the cursor position of the light pen to 
be sent to the controller, This code is NOT in cursor address 
format. 


Word 
0 


1 
2 
3 


Value 
5 
ROW 
FIELD ID 
UNUSED 


Input 

Command to DSI 
Row on screen 
Field ID on screen 
UNUSED 


Execute Power-On-Reset Command (6) 


This command causes the DSI to appear to the controller as if 
the terminal has just been reset. The command signals the 
controller that the DSI needs power-up service and initialization.. 


Word 
0 


1 
2 
3 


Value 
6 
UNUSED 
UNUSED 
UNUSED 


Input 

Command to DSI 
UNUSED 
UNUSED 
UNUSED 


Output 
Main Status 
UNUSED 
UNUSED 
UNUSED 


Output 
Main status 
UNUSED 
UNUSED 
UNUSED 
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Load Trigger Data AND Mask Command (7) 


This command loads a trigger system with data and mask 
values. This system places a "watch" on a specific buffer 
memory location. The watch may be set to check for an exact 
match on a new value, an inexact (masked) match on a new 
value, or on any change to the current value. The mask word 
determines which type of test occurs. 
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For a trigger to occur, the data and buffer MUST match for 
each 1 bit in the mask. To make an exact compare, the mask is 
set to OFFH (all ones), and the data is set to the desired value. 


When a match occurs, the Trigger Occurred bit in the main 
status 1s set. If the mask does not contain all ones, only those 
bits which are 1 are checked for a match. For example: 


Buffer Value 
Search Value 


Bit by Bit Compare 
(Is 2 Difference) 


Mask 
Logical AND of Mask and Compare 


(Exclusive OR) 


01010101 
01010110 
00000011 


11111110 
00000010 


The result is non-zero, and the trigger does not occur. 


The special case of a mask of all zeros is used to handle a test for 
change of state. At the time the mask is set to 0, the current 
value of the location in memory is saved by IRMA. This is then 
compared and any change is reported as a trigger. 


Word Value 
0 7 
1 DATA 
2 MASK 
3 UNUSED 


Input 

Command to DSI 
Data value for compare 
Mask value for compare 
UNUSED 


Output 
Main status 
UNUSED 
UNUSED 
UNUSED 


Load Trigger Address Command (8) 


The load trigger address command sets the buffer position for 
the data/mask compare. This address is in the same format as 
that of a cursor position and data read/write. After executing 
the Load Data and Address Ttigger commands, the Trigger 
occutred bit should be cleared. (Clear Main Status Bits Com- 
mand (3)). The Load Address command should follow the 


Load Data command. 


Word Value Input Output 
0 8 Command to DSI Main status 
1  ADDR(L Address (low) UNUSED 
for checking 
2 ADDR(H) Address (high) UNUSED 
for checking 
3 UNUSED UNUSED UNUSED 


Load Attention Mask Command (9) 


The attention mask is applied to the regular status word. 
Whenever a bit is SET in the status word, the corresponding 
bit in the Attention Mask is checked. If this bit is one, the 
Attention Request flag is set. This only applies to bits chang- 
ing from zero to one. 


Word Value Input Output 
0 9 Command to DSI Main status 
1 UNUSED UNUSED UNUSED 
2 UNUSED UNUSED UNUSED 
3 MASK Mask for status change UNUSED 


Set Terminal Type Command (10) 


This command is used to change the response of the interface 
to the Read Terminal ID command from the controller. 
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Word Value Input Output 
0 10 Command to DSF Main Status 
1 UNUSED UNUSED UNUSED 
2 UNUSED UNUSED UNUSED 
3 UNUSED New Terminal ID UNUSED 


Response Definition 


Upper Four Bits: 


(See definition below) 


Keyboard Type 


AMO OWP>OONDYNAWNH OS 


Reserved 

APL with numeric lock 

Text with numeric lock 
Reserved 

Reserved 

APL 

Text 

Reserved 

Data Entry 2 with numeric lock 
Data Entry 1 with numeric lock 
Typewriter with numeric lock 
Reserved 

Data Entry 2 

Data Entry 1 

Typewriter 

No keyboard 


Lower Fout Bits: 


Screen Type 

0000 Reserved 

0010 960 Mod 1 
0100 1920 Mod 2 
0110 2560 Mod 3 


1000 Unknown 

1010 Reserved 

1100 3564 Mod 5 
1110 3440 Mod 4 


If the terminal type is the same as the current definition then 
no action is taken, otherwise POR status is issued and the new 
terminal type stored. 


Read Terminal Information Command (12) 
Command used to tead various terminal conditions. 


Word Value Input Output 
0 12 Command to DSI Main status 
1 UNUSED UNUSED Starting Page Number 
of EAB (Page = 256 bytes) 
2 UNUSED UNUSED Starting Page Number 
of Internal Variables 
3 UNUSED UNUSED Curtent Terminal Type 
L reese Curent lerminal dype 
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Return Revision ID and OEM Number Command (14) 


Unique OEM numbers may be assigned when the proms are 
programmed. 


Word Value Input Output 

0 14 Command Main status 

1 UNUSED  UNUSED Low two digits of revision 
number in BCD 

2 UNUSED UNUSED High two digits of 
Rey. number 

3 UNUSED UNUSED OEM number — 
normally 0 


Command Request/Attention Request Flags 


5-16 


Two flags allow the 8X305 microprocessor and System Unit 
8088 CPU to handshake over commands. The two flags are 
Command Request and Attention Request. The 8088 can set 
Command Request, indicating that a new command has been 
placed in the dual-ported memory. The Attention Request 
flag is set by the 8X305 processor to indicate a status change 
with Attention Mask bit set in the corresponding bit. The 
Attention flag, set by the DSI 8X305 processor can be cleared 
only by the 8088. The current status of both flags can be read 
by the 8088 (and the 8X305). 


The status flag read command is an I/O read on device code 
| 227H. The resulting eight-bit number contains both flags as 
follows: 


| Bit Meaning 
| 7 . Attention Request flag is set by DSI and cleared by user 
program in the System Unit. 
6 Command Request flag is set by the user program in the 
| System Unit to indicate a new command, and is cleared 
l by the DSI after the command is accepted. 


i 5-0 Unused. 


To set the Command Request flag, the user program should 
| execute an I/O write to device code 226H. By writing to 226H, 
| bit 6 of 227H is set. To clear the Attention Request flag, the 
program should execute an I/O write to device code 227H. 
| In either case, the data written is unimportant. 


Device Code Input Use 
| 226H I/O Write Set Command Request Flag 
i 227H I/O Write Clear Attention Request Flag 
j 227H I/O Read Read Current Flags 


Key Scan Codes 
EU 


In normal 3270 terminal operation, each keystroke is sent as a 
| special key scan code to the controller. The controller responds 
| by updating the screen (or screen buffer) to show the echo of 
} this new keystroke. In the DSI, keystrokes are sent to the con- 
troller via a keystroke command using a key scan code. The 
| controller generated screen buffer update occuts just like a ter- 
minal, and the program can read this buffer as desired. Note 
| that some charactets are generated by multiple scan codes, 
such as shift up, character, shift down. 
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Key scan codes are specific to 3270 systems, and are NOT 
ASCII or EBCDIC. The following tables list the keys and the 
proper scan codes: 


Belgian Key Scan Codes (3270) 


Key Scan Code (HEX) Key Scan Code (HEX) 
Q 4D,60,CD q 60 
B 4D,61,CD b 61 
C 4D,62,CD C 62 
D 4D,63,CD d 63 
E 4D,64,CD e 64 
F 4D,65,CD f 65 
G 4D,66.CD g 66 
H 4D,67,CD h 67 
I 4D,68,CD i 68 
J 4D,69,CD j 69 
K 4D,6A,CD k 6A 
L 4D,6B,CD l 6B 
M 4D,6C,CD m 6C 
N 4D,6D,CD n 6D 
O 41),6E,CD o 6E 
P 4D,GECD p 6F 
A 4D,70,CD a 70 
R 4D),71,CD r 71 
S 4D,72,CD S 72 
T 4D,73,CD t 73 
U 4D,74,CD u 74 
V 4D,75,CD V 75 
Z 4D,76,CD Z 76 
X 4D,77,CD x 77 
Y 4D,78,CD y 78 
W 4D,79,CD w 79 
= 4D,20,CD 0 20 
! 4D,21,CD 1 21 
H 4D,22,CD 2 22 
# 4D,23,CD 3 23 
$ 4D,24,CD 4 24 
% 4D,25,CD 5 25 
+ 4D,26,CD 6 26 
X 4D,27,CD 7 27 
( 4D,28,CD 8 28 
) 4D,29,CD 9 29 


NOTE: Both SHIFT keys can generate uppercase characters. However, 


for the purpose of this chart, only 4D and CD were used. 


Belgian Key Scan Codes (3270) continued 


Key Scan Code (HEX) Key Scan Code (HEX) 

PFI ÁE21,CF ^ 11 

PF2 4R22,CF : 4D,11,CD 

PF3 4F23,CF : 33 

PF4 4F24 CF : 4D,33,CD 

PF5 4R25,CF 32 

FF6 4R26,CF : 4D,32,CD 

PF7 4R27,CF & 15 

PF8 4RE28,CF g 4D,15,CD 

PF9 4E29,CF Attn 50 

PF10 4F 20,CF Sys Req 4F50,CF 

PFI 4R30,CF Cursor 51 

PF12 4F11,CF Clear 4F51,CF 

PF13 40 Erase EOF 4R53,CF 

PF14 4] Blink 54 

PF15 42 Erase EOF 55 

PF16 43 Print 56 

PF17 44 Click 57 

PF18 45 Return 08 

PF19 46 Up OE 

PF20 47 Down 13 

PF21 48 Left 16 

PF22 49 Right 1A 

PF23 4A Dup 5F 

PF24 4B Mark 5E 

PA1 4RSECF Insert oC 

PA2 4ESE,CF Del oD 

à 12 Resert34 

ù 4D,12,CD Enter 18 

é 7E Space 10 

C 4D,7E,CD Shift up CD 

E 14 Alt down 4F 

Under- Alt up CF 

score 4D,14CD -Tab fwd 36 

30 Jab bkwd 35 

? 4D,30,CD Home 4E35,CF 

[ 4D,1B,CD Backspace 31 

é 1B < 09 

2 OF > 4D,09,CD 

] 4D,0FCD Alt cursr 4F54,CF 
Ident 4F36,CF 
TEST 4E57,CF 
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Canadian-French Key Scan Codes (3270) 


Key Scan Code (HEX) Key Scan Code (HEX) 
A 4D,60,CD a 60 
B 4D,61,CD b 61 
C 4D,62,CD c 62 
D 4D,63,CD d 63 
E 4D,64,CD € 64 
F 4D,65,CD f 65 
G 4D,66,CD g 66 
H 4D,67,CD h 67 
I 4D,68,CD i 68 
J 4D,69,CD j 69 
K 4D,6A,CD k 6A 
L 4D,6B,CD l 6B 
M 4D,6C,CD m 6C 
N 4D,6D,CD n 6D 
O 4D,6E,CD o 6E 
P 4D,6ECD p 6F 
Q 4D,70,CD q 70 
R 4D,71,CD r 71 
S 4D,72,CD S 72 
T 4D,73,CD t 73 
U 4D,74,CD u 74 
V 4D,75,CD v 75 
W 4D,76,CD w 76 
X 4D,77,CD x 77 
Y 4D,78,CD y 78 
Z 4D,79,CD Z 79 
) 4D,20,CD 0 20 
4D,21,CD 1 21 
@ 4D,22,CD 2 22 
# 4D,23,CD 3 23 
$ 4D,24,CD 4 24 
% 4D,25,CD 5 25 
7 4D,26,CD 6 26 
& 4D,27,CD 7 27 
i 4D,28,CD 8 28 
( 4D,29,CD 9 29 


NOTE: Both SHIFT keys can generate uppercase characters. However, 


for the purpose of this chart, only 4D and CD were used. 


Canadian-French Key Scan Codes (3270) continued 


Key Scan Code (HEX) Key Scan Code (HEX) 

PFI 4E21,CF = 11 

PF2 4F 22, CF + 4D,11,CD 

PF3 45.23 CF : 33 

PF4 4F.24 CF 32 

PF5 4E25,CF / 4D,32,CD 

FFG 4F26,CF a 15 

PF7 4E27,CF « 4D,15,CD 

PF8 4F28 CF Attn 50 

PF9 4E29,CF Sys Req 4F50,CF 

PF10 4E20,CF Cursor 51 

PF11 4E30,CF Clear 4F51,CF 

PF12 áF 11,CF Erase 4E53,CF 

PF13 40 Blink 54 

PF14 4] Erase EOF 55 

PF15 42 Print 56 

PF16 43 Click 57 

PF17 44 Return 08 

PFI8 45 Up OE 

PF19 46 Down 13 

PF20 47 Left 16 

PF21 48 Right 1A 

PF22 49 Dup SF 

PF23 4A Mark 5E 

PF24 4B Insert 0C 

PA1 4E5ECF Del oD 

PA2 4ESE,CF Reset 34 

$ 12 Enter 18 

ss 4D,12,CD Space 10 

: 7E Shift up CD 

4D,7E,CD Alt down 4F 

é 14 Alt up CF 

? 4D,14,CD Tab fwd 36 

— 30 Tab bkwd 35 

Under Home 4E35,CF 

score 4D,30,CD Backspace 31 

ü 4D,1B,CD < 09 

é 1B > 4D,09,CD 

` 3D Alt cursr 4ESA,CF 

s 4D,3D,CD Ident 4R56,CF 
TEST 4E57,CF 
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5-22 


Danish Key Scan Codes (3270) 


Key Scan Code (HEX) Key Scan Code (HEX) 
A 4D,60,CD a 60 
B 4D,61,CD b 61 
C 4D,62,CD c 62 
D 4D,63,CD d 63 
E 4D,64,CD € 64 
F 4D,65,CD f 65 
G 4D,66,CD g 66 
H 4D,67,CD h 67 
I 4D,68,CD i 68 
J 4D,69,CD j 69 
K 4D,6A,CD k 6A 
L 4D,6B,CD l 6B 
M 4D,6C,CD m 6C 
N 4D,6D,CD n 6D 
O 4D,6E,CD (e GE 
P áD,6ECD p 6F 
Q 4D,70,CD q 70 
R 4D,71,CD f 71 
S 4D,72 CD S 72 
T 4D,73,CD t 73 
U 4D,74,CD u 74 
V 4D,75,CD M 75 
W 4D,76,CD w 76 
X 4D,77,CD x 77 
Y 4D,78,CD y 78 
Z 4D,79,CD Z 79 
= 4D,20,CD 0 20 
! 4D,21,CD 1 21 
4D,22,CD 2 22 
# 4D,23,CD 3 23 
x 4D,24,CD 4 24 
% 4D,25,CD 5 25 
& 4D,26,CD 6 26 
/ 4D,27,CD 7 27 
( 4D,28,CD 8 28 
) 4D,29,CD 9 29 


NOTE: Both SHIFT keys can generate uppercase characters. However, 
for the purpose of this chart, only 4D and CD were used. 


1 


Danish Key Scan Codes (3270) continued 


Key Scan Code (HEX) Key Scan Code (HEX) 

PFI 4E21CF V 11 

PF2 4F 22, CF n 4D,11,CD 

PF3 4E23,CF , 33 

PF4 4E24,CF à 4D,33,CD 

PF5 4F25,CF 32 

FF6 4E26,CF ; 4D,32,CD 

PF7 4R27,CF ^ 15 

PF8 4E28,CF ü 4D,15,CD 

PF9 4F29,CF Attn 50 

PF10 Á4E20,CF Sys Req 4E50,CF 

PF11 4F 30,CF Cursor 51 

PF12 4F11,CF Clear 4E51,CF 

PF13 40 Erase 4RE53,CF 

PF14 41 Blink 54 

PF15 42 Erase EOF 55 

PF16 43 Print 56 

PF17 44 Click 57 

PF18 45 Return 08 

PF19 46 Up OE 

PF20 47 Down 13 

PF21 48 Left 16 

PF22 49 Right 1A 

PF23 4A Dup 5F 

PF24 4B Mark 5E 

PAL 4ESECF Insert 0C 

PA2 4ESE,CF Del 0D 

g 12 Reset 34 

Ø 4D,12,CD Enter 18 

a 7E Space 10 

AX 4D,7E,CD Shift up CD 

— 14 Alt down 4F 

Under Alt up CF 

score 4D,14,CD Tab fwd 36 

+ 30 Tab bkwd 35 

? 4D,30,CD Home 4E35,CF 

à 4D, 1B, CD Backspace 31 

A IB « 09 

| OF > 4D,09,CD 

" 4D,0FCD Alt cursr 4F54,CF 
Ident 4RE56,CF 
TEST 4E57,CF 
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English (Domestic) Key Scan Codes (3270) 


Key Scan Code (HEX) Key Scan Code (HEX) 
A 4D,60,CD a 60 
B 4D,61,CD b 61 
C 4D,62,CD c 62 
D 4D,63,CD d 63 
E 4D,64,CD e 64 
F 4D,65,CD f 65 
G 4D,66,CD g 66 
H 4D,67,CD h 67 
I 4D,68,CD i 68 
J 4D,69,CD j 69 
K 4D,6A,CD k 6A 
L 4D,6B,CD l 6B 
M 4D,6C,CD m 6C 
N 4D,6D,CD n 6D 
O 4D,6E,CD o 6E 
P 4D,6ECD p 6F 
Q 4D,70,CD q 70 
R 4D,71,CD r 71 
S 4D,72,CD S 72 
T 4D,73,CD t 73 
U 4D,74,CD u 74 
V 4D,75,CD v 75 
W 4D,76,CD w 76 
X 4D,77,CD x 77 
b4 4D,78,CD y 78 
Z 4D,79,CD Z 79 
) 4D,20,CD 0 20 
| 4D,21,CD 1 21 
@ 4D,22,CD 2 22 
# 4D,23,CD 3 23 
$ 4D,24,CD 4 24 
% 4D,25,CD 5 25 
5 4D,26,CD 6 26 
& 4D,27,CD 7 27 
i 4D,28,CD 8 28 
( 4D,29,CD 9 29 


NOTE: Both SHIFT keys can generate uppercase characters. However, 
for the purpose of this chart, only 4D and CD were used. 


English (Domestic) Key Scan Codes (3270) continued 


Key Scan Code (HEX) Key Scan Code (HEX) 

PF1 4F21,CF = 11 

PF2 4F.22 CF + 4D,11,.CD 

PF3 4E23,CF f 33 

PF4 4F24,CF , 32 

PF5 4E25,CF N 15 

FF6 4E 26,CF : 4D,15,CD 

PF7 4RE27,CF Attn 50 

PF8 4E28,CF Sys Req 4F50,CF 

PF9 4F.29 CF Cursor 51 

PF10 4E 20,CF Clear 4F51,CF 

PF11 4E 30,CF Erase 4E53,CF 

PF12 4F11CF Blink 54 

PF13 40 Erase EOF 55 

PF14 41 Print 56 

PF15 42 Click 57 

PF16 43 Return 08 

PF17 44 Up OE 

PF18 45 Down 13 

PF19 46 Left 16 

PF20 47 Right 1A 

PF21 4g Dup SF 

PF22 49 Mark 5E 

PF23 4A Insert oC 

PF24 4B Del oD 

PA1 4ESECF Reset 34 

PA2 4ESE,CF Enter 18 

j 12 Space 10 

" 4D,12,CD Shift up (L) CD 

; 7E Shift down (L) 4D 

; 4D,7E,CD Shift up (R) CE 

/ 14 Shift down (R) 4E 

? 4D,14,CD Alt down 4F 

— 30 Alt up CF 

Under- Tab fwd 36 

score. 4D,30,CD Tab bkwd 35 

! 4D, 1B, CD Home 4RE35,CF 

€ 1B Backspace 31 

` 3D < 09 

~ 4D,3D,CD > 4D,09,CD 

OF Alt cursr 4F54,CF 

} 4D,0FCD Ident 4E56,CF 
TEST 4E57,CF 
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English (UK) Key Scan Codes (3270) 


Key Scan Code (HEX) Key Scan Code (HEX) 
A 4D,60,CD a 60 
B 4D,61,CD b 61 
C 4D,62,CD C 62 
D 4D,63,CD d 63 
E 4D,64,CD e 64 
F 4D,65,CD f 65 
G 4D,66,CD g 66 
H 4D,67,CD h 67 
I 4D,68,CD i 68 
J 4D,69,CD j 69 
K 4D,6A,CD k 6A 
L 4D,6B,CD l 6B 
M 4D,6C,CD m 6C 
N 4D,6D,CD n 6D 
O 4D,6E,CD o 6E 
P 4D,6ECD p 6F 
Q 4D,70,CD q 70 
R 4D,71,CD f 71 
S 4D,72,CD s 72 
T 4D,73,CD t 73 
U 4D,74,CD u 74 
V 4D,75,CD v 75 
W 4D,76,CD w 76 
X 4D,77,CD X 77 
Y 4D,78,CD y 78 
Z 4D,79,CD z 79 
# 4D,20,CD 0 20 
! 4D,21,CD 1 21 
1 4D,22,CD 2 22 
£ 4D,23,CD 3 23 
$ 4D,24,CD 4 24 
% 4D,25,CD 5 25 
& 4D,26,CD 6 26 
; . 4D,27,CD 7 27 
( 4D,28,CD 8 28 
) 4D,29,CD 9 29 
! 4D,3D,CD 

‘ 3D 


NOTE: Both SHIFT keys can generate uppercase characters. However, 
for the purpose of this chart, only 4D and CD were used. 


English (UK) Key Scan Codes (3270) continued 


Key Scan Code (HEX) Key Scan Code (HEX) 

PF1 4E21,CF EE 11 

PF2 4F22.CF Over- 

PF3 4E23,CF score 4D,11,CD 

PF4 4F 24 CF f 33 

PF5 4E25,CF « 4D,33,CD 

FF6 4R26,CF 32 

PF7 4E27,CF > 4D,32,CD 

PF8 4R28,CF { 15 

PF9 4E29,CF Attn 50 

PF10 4F 20,CF Sys Req 4ESO,CF 

PFI 4F30,CF Cursor (51 

PF12 4F11.CF Clear 4F51,CF 

PF13 40 Erase 4E53,CF 

PF14 4l Blink 54 

PF15 42 Erase EOF 55 

PF16 43 Print 56 

PF17 44 Click 57 

PF18 45 Return 08 

PF19 46 Up OE 

PF20 47 Down 13 

PF21 48 Left 16 

PF22 49 Right 1A 

PF23 4A Dup SF 

PF24 4B Matk SE 

PAI 4R5ECF Insert 0C 

PA2 4ESE,CF Del oD 

! 12 Reset 34 

x 4D,12,CD Enter 18 

i 7E Space 10 

T 4D,7E.CD Shift up CD 

/ 14 Alt down 4F 

? 4D,14 CD Alt up CF 

— 30 Tab fwd 36 

= 4D,30,CD Tab bkwd 35 

` 4D, 1B, CD Home 4F35,CF 

@ 1B Backspace 31 

} OF 09 
Under- 
score __ 4D,09,CD 
Alt cursr 4E54,CF 
Ident 4FE56,CF 
TEST 4E57,CF 
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Finnish Key Scan Codes (3270) 


Cy NAMdcHdemovozg^cm-omommgoun»|k 
ml 


Scan Code (HEX) 


4D,60,CD 
4D,61,CD 
4D,62,CD 
4D,63,CD 
4D,64,CD 
4D,65,CD 
4D,66,CD 
4D,67,CD 
4D,68,CD 
4D,69,CD 
4D,6A,CD 
4D,6B,CD 
4D,6C,CD 
4D,6D,CD 
4D,6E,CD 
4D,6ECD 
4D,70,CD 
4D,71,CD 
4D,72,CD 
4D,73,CD 
4D,74,CD 
4D,75,CD 
4D,76,CD 
4D,77,CD 
4D,78,CD 
4D,79,CD 
4D,20,CD 
4D,21,CD 
4D,22,CD 
4D,23,CD 
4D,24,CD 
4D,25,CD 
4D,26,CD 
4D,27,CD 
4D,28,CD 
4D,29,CD 


Key 


NO 00-1 ON VR Fo rS ON X AGsarternrawgon BTA mos wo Mama op 


Scan Code (HEX) 


NOTE: Both SHIFT keys can generate uppercase characters. However, 


for the purpose of this chart, only 4D and CD werte used. 


Finnish Key Scan Codes (3270) continued 


Key Scan Code (HEX) Key Scan Code (HEX) 
PFI 4R21CF é 1 
PF2 4R22,CF E 4D,11,CD 
PF3 4E23,CF à 33 
PF4 4F24 CF A 4D,33,CD 
PF5 4E25,CF à 32 
FFG ÁE26,CF À 4D,32,CD 
PF7 4E27,CF ^ 15 
PF8 4E28,CF ü 4D,15,CD 
PF9 ÁE29,CF Attn 50 
PF10 4E20,CF Sys Req 4F50,CF 
PF11 4E30,CF Cursor 51 
PF12 4F11CF Clear 4F51,CF 
PF13 40 Erase ÁE53,CF 
PF14 41 Blink 54 
PF15 42 Erase EOF 55 
PF16 43 Print 56 
PF17 44 Click 57 
PF18 45 Return 08 
PF19 46 Up OE 
PF20 47 Down 13 
PF21 48 Left 16 
PF22 49 Right 1A 
PF23 4A Dup 5E 
PF24 4B Mark 5E 
PA1 ÁRSRECF Insert 0C 
PA2 4ESE,CF Del oD 
12 Reset 34 
4DJ2,CD Enter 18 
: 7E Space 10 
: 4D,7ECD Shift up CD 
6 14 Alt down 4F 
Ó 4D,14,CD Alt up CF 
+ 30 Tab fwd 36 
? 4D,30,CD Tab bkwd 35 
Under Home 4F 35,CF 
score. 4D,1B,CD Backspace 31 
E 1B < 09 
l OF > 4D,09,CD 
* 4D,0FCD Alt cursr 4F54,CF 
Ident ÁRSG,CF 
TEST 4F57,CF 
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French AZERTY Key Scan Codes (3270) 


Key Scan Code (HEX) Key Scan Code (HEX) 
Q 4D,60,CD q 60 
B 4D,61,CD b 61 
C 4D,62,CD C 62 
D 4D,63,CD d 63 
E 4D,64,CD e 64 
F 4D,65,CD f 65 
G 4D,66,CD g 66 
H 4D,67,CD h 67 
I 4D,68,CD i 68 
J 4D,69,CD j 69 
K 4D,6A,CD k 6A 
L 4D,6B,CD l 6B 
M 4D,6C,CD m 6C 
N 4D,6D,CD n 6D 
O 4D,6E,CD o 6E 
P 4D,6FCD P 6F 
A 4D,70,CD a 70 
R 4D,71,CD r 71 
S 4D,72,CD S 72 
T 4D,73,CD t 73 
U 4D,74,CD u 74 
V 4D,75,CD M 75 
Z 4D,76,CD Z 76 
X 4D,77,CD x 77 
Y 4D,78,CD y 78 
W 4D,79,CD w 79 
= 4D,20,CD 0 20 
! 4D,21,CD 1 21 
1 4D,22,CD 2 22 
§ 4D,23,CD 3 23 
$ 4D,24,CD 4 24 
% 4D,25,CD 5 25 
+ 4D,26,CD 6 26 
/ 4D,27,CD 7 27 
( 4D,28,CD 8 28 
) 4D,29,CD 9 29 


NOTE: Both SHIFT keys can generate uppercase characters. However, 


for the purpose of this chart, only 4D and CD were used. 


French AZERTY Key Scan Codes (3270) continued 


Key Scan Code (HEX) Key Scan Code (HEX) 

PFl 4F21,CF ^ 11 

PF2 4F 22, CF i 4D,11,CD 

PF3 4E23,CF ; 33 

PF4 4F.24 CF : 4D,33,CD 

PF5 4E25,CF l 32 

FF6 4F26,CF : 4D,32,CD 

PF7 4E27,CF & 15 

PF8 4F28 CF * 4D,15,CD 

PF9 4RE29,CF Attn 50 

PF10 4RE20,CF Sys Req 4F50,CF 

PF11 4E 30,CF Cursor 51 

PF12 4F11,CF Clear 4E51,CF 

PF13 40 Erase 4E53,CF 

PF14 4l Blink 54 

PF15 42 Erase EOF 55 

PF16 43 Print 56 

PF17 44 Click 57 

PF18 45 Return 08 

PF19 46 Up OE 

PF20 47 Down 13 

PF21 48 Left 16 

PF22 49 Right 1A 

PF23 4A Dup 5F 

PF24 4B Mark 5E 

PA1 4RESECF Insert 0C 

PA2 4F5E,CF Del 0D 

ü 12 Reset 34 

d 4DJ2,CD Enter 18 

é 7E Space 10 

e 4D,7E,CD Shift up CD 

— 14 Alt down 4F 

Under- Alt up CF 

score.  4D,14,CD Tab fwd 36 

! 30 Tab bkwd 35 

? 4D,30,CD Home 4E35,CF 

ç 4D, 1B, CD Backspace 31 

à 1B < 09 

E 3D > 4D,09,CD 

£ 4D,3D,CD Alt cursr 4F54,CF 
Ident 4F56,CF 
TEST 4F57,CF 


French QWERTY Key Scan Codes (3270) 


Ca NAbgcHeomBOovHoZUW-UTUmom"ugouw»m 
Me 


Scan Code (HEX) Key Scan Code (HEX) 
4D,60,CD a 60 
4D,61,CD b 61 
4D,62,CD c 62 
4D,63,CD d 63 
4D,64,CD e 64 
4D,65,CD f 65 
4D,66,CD g 66 
4D,67,CD h 67 
4D,68,CD i 68 
4D,69,CD j 69 
4D,6A,CD k 6A 
4D,6B,CD l 6B 
4D,6C,CD m 6C 
4D,6D,CD n 6D 
4D,6ECD o 6E 
4D,6FCD p 6F 
4D,70,CD q 70 
4D,71,CD f 71 
4D,72,CD S 72 
4D,73,CD t 73 
4D,74,CD u 74 
4D,75,CD V 75 
4D,76,CD w 76 
4D,77 CD x 77 
4D,78,CD y 78 
4D,79,CD z 79 
4D,20,CD 0 20 
4D,21,CD 1 21 
4D,22,CD 2 22 
4D,23,CD 3 23 
4D,24,CD 4 24 
4D,25,CD 5 25 
4D,26,CD 6 26 
4D,27,CD 7 27 
4D,28,CD 8 28 
4D,29,CD 9 29 


NOTE: Both SHIFT keys can generate uppercase characters. However, 


for the purpose of this chart, only 4D and CD were used. 


hee i 


French QWERTY Key Scan Codes (3270) continued 


Key Scan Code (HEX) Key Scan Code (HEX) 

PFI 4F.21,CF A 1 

PF2 4E22,CF k 4D,11,CD 

PF3 4E23,CF ; 33 

PF4 4F24,CF : 4D,33,CD 

PF5 4E25,CF 32 

FF6 4E26,CF ; 4D,32,CD 

PF7 4E27,CF * 15 

PF8 4R28,CF & 4D,15,CD 

PF9 4F29 CF Attn 50 

PF10 4F 20,CF Sys Req 4E50,CF 

PF11 4R30,CF Cursor 51 

PF12 ARILCF Clear 4F51,CF 

PF13 40 Erase 4RE53,CF 

PF14 41 Blink 54 

PF15 42 Erase EOF 55 

PF16 43 Print 56 

PF17 44 Click 57 

PF18 45 Return 08 

PF19 46 Up OE 

PF20 47 Down 13 

PF21 48 Left 16 

PF22 49 Right 1A 

PF23 4A Dup 5F 

PF24 4B Mark 5E 

PAI 4RSECF Insert oC 

PA2 4E5E,CF Del oD 

ù 12 Reset 34 

? áD,12,CD Enter 18 

é 7E Space 10 

é 4D,7E.CD Shift up CD 

— 14 Alt down 4F 

Under- Alt up CF 

scoe |  4DIACD Jab fwd 36 

? 30 Tab bkwd 35 

! 4D,30,CD Home 4E35,CF 

¢ 4D,1B,CD Backspace 31 

a 1B < 09 

£ 4D,3D,CD > 4D,09,CD 

x 3D Alt cutst 4E54,CF 
Ident 4E56,CF 
TEST 4E57,CF 


German/Austrian Key Scan Codes (3270) 


Key Scan Code (HEX) Key Scan Code (HEX) 
A 4D,60,CD a 60 
B 4D,61,CD b 61 
C 4D,62,CD c 62 
D 4D,63,CD d 63 
E 4D,64,CD e 64 
F 4D,65,CD f 65 
G 4D,66,CD g 66 
H 4D,67,CD h 67 
I 4D,68,CD i 68 
J 4D,69,CD j 69 
K 4D,6A,CD k 6A 
L 4D,6B,CD l 6B 
M 4D,6C,CD m 6C 
N 4D,6D,CD n 6D 
O 4D,6E,CD o 6E 
P 4D,6ECD p 6F 
Q 4D,70,CD q 70 
R 4D,71,CD t 71 
S 4D,72,CD S 72 
T 4D,73,CD t 73 
U 4D,74,CD u 74 
V 4D,75,CD v 75 
W 4D,76,CD w 76 
X 4D,77,CD x 77 
Z 4D,78,CD Z 78 
Y 4D,79,CD y 79 
= 4D,20,CD 0 20 
! 4D,21,CD 1 21 
L 4D,22,CD 2 22 
§ 4D,23,CD 3 23 
$ 4D,24,CD 4 24 
% 4D,25,CD 5 25 
& 4D,26,CD 6 26 
/ 4D,27,CD 7 27 
( 4D,28,CD 8 28 
) 4D,29,CD 9 29 


NOTE: Both SHIFT keys can generate uppercase characters. However, 


5-34 


for the purpose of this chart, only 4D and CD wete used. 


German/Austrian Key Scan Codes (3270) continued 


Key Scan Code (HEX) Key Scan Code (HEX) 

PF1 4F21.CF ` 11 

PF2 4F 22 CF ^ 4D,11.CD 

PF3 4E23,CF . 33 

PF4 4F24 CF f 4D,33,CD 

PF5 4F25,CF ; 32 

FF6 4RE26,CF 4D,32,CD 

PF7 4RE27,CF + 15 

PF8 4F28 CF * 4D,15,CD 

PF9 4R29,CF Attn 50 

PF10 4R20,CF Sys Req 4E50,CF 

PF11 4F30,CF Cursor 51 

PF12 4F11CF Clear 4E51,CF 

PF13 40 Erase 4E53,CF 

PF14 41 Blink 54 

PF15 42 Erase EOF 55 

PF16 43 Print 56 

PF17 44 Click 57 

PF18 45 Return 08 

PF19 46 Up OE 

PF20 47 Down 13 

PF21 48 Left 16 

PF22 49 Right 1A 

PF23 4A Dup 5F 

PF24 4B Mark 5E 

PAI 4E5ECF Insert oC 

PA2 4E5E.CF Del oD 

ä 12 Reset 34 

Á 4D,12.CD Enter 18 

Öö 7E Space 10 

Ö 4D,7E,CD Shift up CD 

- 14 Alt down 4F 

Under- Alt up CF 

score. 4D, 14,CD Tab fwd 36 

f 30 Tab bkwd 35 

? 4D,30,CD Home 4F35,CF 

U 4D, 1B, CD Backspace 31 

ü 1B « 09 

# 3D > 4D,09,CD 

^ 4D,3D,CD Alt curst 4RESA,CF 
Ident 4RE56,CF 
TEST 4E57,CF 


Italian Key Scan Codes (3270) 


Key Scan Code (HEX) Key Scan Code (HEX) 

A 4D,60,CD a 60 
B 4D,61,CD b 61 
C 4D,62,CD C 62 
D 4D,63,CD d 63 
E 4D,64,CD e 64 
F 4D,65,CD f 65 
G 4D,66,CD g 66 
H 4D,67,CD h 67 
I 4D,68,CD 1 68 
J 4D,69,CD j 69 
K 4D,6A CD k 6A 
L 4D,6B,CD l 6B 
M 4D,6C,CD m 6C 
N 4D,6D,CD n 6D 
O 4D,6E,CD o 6E 
P 4D,6ECD p 6F 
Q 4D,70,CD q 70 
R 4D,71,CD f 71 
S 4D,72,CD S 72 
T 4D,73,CD t 73 
U 4D,74,CD u 74 
V 4D,75,CD v 75 
W 4D,76,CD w 76 
X 4D,77,CD X 77 
Y 4D,78,CD y 78 
Z 4D,79,CD Z 79 
= 4D,20,CD 0 20 
! 4D,21 CD 1 21 
4D,22,CD 2 22 

£ 4D,23,.CD 3 23 
$ 4D,24,CD 4 24 
% 4D),25,CD 5 25 
& 4D,26,CD 6 26 
/ 4D,27,CD 7 27 
( 4D,28,CD 8 28 
) 4D,29,CD 9 29 


NOTE: Both SHIFT keys can generate uppercase characters. However, 


for the purpose of this chart, only 4D and CD were used. 


Italian Key Scan Codes (3270) continued 


Key Scan Code (HEX) Key Scan Code (HEX) 

PF1 4F 21,CF l 11 

PF2 4E22,CF ^ 4D,11,CD 

PF3 4E23,CF , 33 

PF4 4F 24 CEF € 4D,33,CD 

PF5 4E25,CF 32 

FF6 4F26,CF : 4D,32,CD 

PF7 4E27,CF + 15 

PF8 4F 28.CF * 4D,15,CD 

PF9 4F29 CF Attn 50 

PF10 4RE20,CF Sys Req 4E50,CF 

PF11 4E 30,CF Cursor 51 

PF12 4F11,CF Clear 4F51,CF 

PF13 40 Erase 4R53,CF 

PF14 41 Blink 54 

PF15 42 Erase EOF 55 

PF16 43 Print 56 

PF17 44 Click 57 

PF18 45 Return 08 

PF19 46 Up. OE 

PF20 47 Down 13 

PF21 48 Left 16 

PF22 49 Right 1A 

PF23 4A Dup SF 

PF24 4B Mark 5E 

PAI 4E5ECF Insert 0C 

PA2 A4RESE,CF Del oD 

à. 12 Reset 34 

4D,12,.CD Enter 18 

ò 7E Space 10 

ç 4D,7E,CD Shift up CD 

— 14 Alt down 4F 

Under Alt up CF 

score 4D,14,CD Tab fwd 36 

? 30 Tab bkwd 35 

| 4D,30,CD Home 4E35,CF 

é 4D,1B,CD Backspace 31 

é 1B < 09 

ü 3D > 4D,09,CD 

§ 4D,3D,CD Alt cursr 4ESA,CF 
Ident 4R56,CF 
TEST 4E57,CF 


Norwegian Key Scan Codes (3270) 


Key Scan Code (HEX) Key Scan Code (HEX) 
A 4D,60,CD a 60 
B 4D,61,CD b 61 
C 4D,62.CD C 62 
D 4D,63,CD d 63 
E 4D,64 CD e 64 
F 4D,65,CD f 65 
G 4D,66,CD g 66 
H 4D,67,CD h 67 
I 4D,68,CD i 68 
J 4D,69, CD j 69 
K 4D,6A.CD k 6A 
L 4D,6B,CD l 6B 
M 4D,6C.CD m 6C 
N 4D,6D,CD n 6D 
O 4D,6ECD o 6E 
P 4D,6ECD p 6F 
Q 4D,70,CD q 70 
R 4D,71,CD f 71 
S 4D,72 CD S 72 
T 4D,73,CD t 73 
U 4D,74,CD u 74 
V 4D,75,CD V 75 
W 4D,76,CD w 76 
X 4D,77,CD X 77 
Y 4D,78,CD y 78 
Z 4D,79,CD Z 79 
= 4D,20 CD 0 20 
! 4D,21CD 1 21 
i ÁD,22CD 2 22 
# 4D,23,.CD 3 23 
[ei 4D224CD 4 24 
% 4D,25,CD 5 25 
& 4D,26,CD 6 26 
/ 4D,27.CD 7 27 
( 4D,28,CD 8 28 
) 4D,29,CD 9 29 


NOTE: Both SHIFT keys can generate uppercase characters. However, 


for the purpose of this chart, only 4D and CD were used. 


Norwegian Key Scan Codes (3270) continued 


Key Scan Code (HEX) Key Scan Code (HEX) 

PFI 4E21,CF \ 11 

PF2 4E22,CF ` 4D,11,CD 

PF3 4F23,CF ; 33 

PF4 424 CF ; 4D,33,CD 

PF5 4E25,CF 32 

FF6 4E26,CF : 4D,32,CD 

PF7 4R27,CF ^ 15 

PF8 4E28,CF ü 4D,15,CD 

PF9 4F.29,CF Attn 50 

PF10 4E20,CF Sys Req 4E50,CF 

PF11 4F 30,CF Cursor 51 

PF12 4F11CF Clear 4F51CF 

PF13 40 Erase ÁE53,CF 

PF14 41 Blink 54 

PFI5 42 Erase EOF 55 

PF16 43 Print 56 

PF17 44 Click 57 

PF18 45 Return 08 

PF19 46 Up OE 

PF20 47 Down 13 

PF21 48 Left 16 

PF22 49 Right 1A 

PF23 4A Dup 5F 

PF24 4B Mark 5E 

PA1 4E5FCF Insert oC 

PA2 4E5E,CF Del oD 

æ 12 Reset 34 

A 4D,12,CD Enter 18 

ø 7E Space 10 

Ø 4D,7ECD Shift up CD 

— 14 Alt down 4F 

Under Alt up CF 

score 4D,14,CD Tab fwd 36 

+ 30 Tab bkwd 35 

? 4D,30,CD Home 4F35,CF 

à 4D, 1B, CD Backspace 31 

A 1B < 09 

3D > 4D,09,CD 

¥ 4D,3DCD Alt cursr 4E54,CF 
Ident 4E56,CF 
TEST 4F'57,CF 
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Spanish Key Scan Codes (3270) 


Key Scan Code (HEX) Key Scan Code (HEX) 
A 4D,60,CD a 60 
B 4D,61,CD b 61 
C 4D,62,CD Cc 62 
D 4D,63,CD d 63 
E 4D,64,CD e 64 
F 4D,65,CD f 65 
G 4D,66,CD g 66 
H 4D,67,CD h 67 
I 4D,68,CD i 68 
J 4D,69,CD j 69 
K 4D,6A,CD k 6A 
L 4D,6B,CD l 6B 
M 4D,6C,CD m 6C 
N 4D,6D,CD n 6D 
O 4D,6E,CD o 6E 
P 4D,6ECD p 6F 
Q 4D,70,CD q 70 
R 4D,71,CD I 71 
S 4D,72,CD s 72 
T 4D,73,CD t 73 
U 4D,74,CD u 74 
V 4D,75,CD M 75 
W 4D,76,CD w 76 
X 4D,77,CD x 77 
Y 4D,78,CD y 78 
Z 4D,79,CD Z 79 
= 4D,20,CD 0 20 
| 4D,21,CD 1 21 
4D,22,CD - 2 22 
@ 4D,23,CD 3 23 
Pts 4D,24,CD 4 24 
% 4D,25,CD 5 25 
& 4D,26,CD 6 26 
/ 4D,27,CD 7 27 
( 4D,28,CD 8 28 
) 4D,29,CD 9 29 


NOTE: Both SHIFT keys can generate uppercase characters. However, 


for the purpose of this chart, only 4D and CD were used. 


Bat 


i 
ae 


p 


Spanish Key Scan Codes (3270) continued 


Key Scan Code (HEX) Key Scan Code (HEX) 

PF1 4F21,CF ~ 11 

PF2 4F22.CF 3 4D,11,CD 

PF3 4E23,CF f 33 

PF4 4E 24 CF ; 4D,33,CD 

PF5 4E25,CF 32 

FF6 4RE26,CF : 4D,32,CD 

PF7  4E27.CF + 15 

PF8 4F28.CF * 4D,15,CD 

PF9 4F29.CF Attn 50 

PF10 4F20,CF Sys Req 4E 50,CF 

PF11 ÁRE30,CF Cursor 51 

PF12 4F11,CF Clear 4F51,CF 

PF13 40 Erase 4E53,CF 

PF14 41 Blink 54 

PF15 42 Erase EOF 55 

PF16 43 Print 56 

PF17 44 Click 57 

PF18 45 Return 08 

PF19 46 Up OE 

PF20 47 Down 13 

PF21 48 Left 16 

PF22 49 Right 1A 

PF23 4A Dup SF 

PF24 4B Mark 5E 

PA1 4RESECF Insert 0C 

PA2 A4ESE,CF Del oD 

{ 12 Reset 34 

[ 4D,12,CD Enter 18 

fi 7E Space 10 

N 4D,7ECD Shift up CD 

= 14 Alt down 4F 

Under Alt up CF 

score | ÁADJACD Tab fwd 36 

$ 30 Tab bkwd 35 

? 4D,30,CD Home 4R35,CF 

: 4D, 1B, CD , Backspace 31 

\ 1B < 09 
> 4D,09,CD 
Alt cursr 4E 54,CF 
Ident 4E 56,CF 
TEST 4E57,CF 
] 4D,0FCD 
} OF 
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Swedish Key Scan Codes (3270) 


Key Scan Code (HEX) Key Scan Code (HEX) 
A 4D,60,CD a 60 
B 4D,61,CD b 61 
C 4D,62,CD c 62 
D 4D,63,CD d 63 
E 4D,64,CD e 64 
F 4D,65,CD f 65 
G 4D,66,CD g 66 
H 4D,67,CD h 67 
I 4D,68,CD i 68 
J 4D,69,CD j 69 
K 4D,6A,CD k 6A 
L 4D,6B,CD l 6B 
M 4D,6C,CD m 6C 
N 4D,6D,CD n 6D 
O 4D,6E,CD o 6E 
P 4D,6ECD p 6F 
Q 4D,70,CD q 70 
R 4D,71,CD f 71 
S 4D,72,CD S 72 
T 4D,73,CD t 73 
U 4D,74,CD u 74 
V 4D,75,CD v 75 
W 4D,76,CD w 76 
X 4D,77,CD x 77 
Y 4D,78,CD y 78 
Z 4D,79,CD z 79 
= 4D,20,CD 0 20 
! 4D,21,CD 1 21 
4D,22,CD 2 22 
§ 4D,23,CD 3 23 
v3 4D,24,CD 4 24 
% 4D,25,CD 5 25 
& 4D,26,CD 6 26 
/ 4D,27,CD 7 27 
( 4D,28,CD 8 28 
) 4D,29,CD 9 29 


NOTE: Both SHIFT keys can generate uppercase characters. However, 


for the purpose of this chart, only 4D and CD were used. 


Swedish Key Scan Codes (3270) continued 


Key Scan Code (HEX) Key Scan Code (HEX) 

PF1 4RE21,CF É 11 

PF2 4E22 CF E 4D,11,CD 

PF3 4F23,CF i 33 

PF4 4F 24 CF : 4D,33,CD 

PF5 4E25,CF 32 

FF6 4R26,CF : 4D,32,CD 

PF7 4RE27,CF ^ 15 

PF8 4F 28 CF ü 4D,15,CD 

PF9 4F 29, CF Attn 50 

PF10 4F 20,CF Sys Req 4F50,CF 

PF11 4E30,CF Cursot 51 

PF12 4F11,CF Clear 4F51,CF 

PF13 40 Erase 4F53,CF 

PF14 41 Blink 54 

PF15 42 Erase EOF 55 

PF16 43 Print 56 

PF17 44 Click 57 

PF18 45 Return 08 

PF19 46 Up OE 

PF20 47 Down 13 

PF21 48 Left 16 

PF22 49 Right 1A 

PF23 4A Dup 5F 

PF24 4B Mark SE 

PA1 4RESECF Insert 0C 

PA2 4F5E,CF Del oD 

ä 12 Reset 34 

Á 4D,12,CD Enter 18 

ö 7E Space 10 

Ö 4D,7E,CD Shift up CD 

— 14 Alt down 4F 

Under Alt up CF 

score 4D,14,CD Tab fwd 36 

+ 30 Tab bkwd 35 

? 4D,30,CD Home 4E35,CF 

à 4D,1B.CD Backspace 31 

A 1B < 09 

3D > 4D,09,CD 

* 4D,3D,CD Alt cursr 4F54,CF 
Ident 4E56,CF 
TEST 4E57,CF 
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The DSI Screen Buffer 


The screen buffer maintained in the DSI can be read using 

the Read Data command. The user program must supply the 
address in the screen buffer as part of the Read Data command, 
and receive the data at that location upon completion. 


The buffer contains the number of characters normally dis- 
played on the screen of the particular terminal type (Mod 2, 
2000; Mod 3, 2800; Mod 4, 3520). The first line of the screen 
begins in buffer location 50H. Each successive line then con- 
sists of 50H (80 decimal) characters in consecutive order. The 
following tables list starting addresses for each line of Mod 2 
and Mod 3 terminal types. 


MOD 2 Terminal Type 
Line # Starting Hex Address Decimal 
1 50 80 
2 A0 160 
3 FO 240 
4 140 320 
5 190 400 
6 1E0 480 
7 230 560 
8 280 640 
9 2D0 720 
10 320 800 
Hi 370 880 
12 3C0 960 
13 410 1040 
14 460 1120 
15 4B0 1200 
. 16 500 1280 
17 550 1360 
18 5A0 1440 
19 5F0 1520 
20 640 1600 
21 690 1680 
22 GEO 1760 
23 730 1840 
24 780 1920 
Status (Mod 2) 0 0 
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MOD 3 Terminal Type 


Line # Starting Hex Address Decimal 
25 7D0 2000 
26 820 2080 
27 870 2160 
28 8CO 2240 
29 910 2320 
30 960 2400 
31 9BO 2480 
32 A00 2560 
Status (Mod 3) 0 0 
MOD 4 Terminal Type 

Line # Starting Hex Starting Decimal 
33 A50 2640 
34 AAO 2720 
35 AFO 2800 
36 B40 2880 
37 B90 2960 
38 BEO 3040 
39 C30 3120 
40 C80 3200 
41 CBO 3280 
42 D20 3360 
43 D70 3440 
Status (Mod 4) 0 0 


Bytes removed from the screen buffer are translated into 
characters using the following table: 


5-45 


/ 4 / / H 
SEIEHEHEESEST ERE 
à eats pols potele S CYCIESEJCIEIND 
SEE E 


For example, 2C is "4". B8 is "Y"; B3 is “T”. CO to FF define 


indicator and attribute bytes. For more information, see 


“Attribute / EAB Characters.” 
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Attribute/EAB Characters 


Characters defining the type of data to be entered in a par- 
ticular field are called attribute characters. When an attribute 

| character is encountered, the character signals the controller and 
display that a particular field type is to follow. All data between 

| that character and the next attribute character (indicating the 

beginning of the next field) is considered part of the field. 


| Attribute characters are normally displayed as blanks. If the 
attribute byte defines a field to be both protected and numeric, 

| the cursor is positioned automatically by the controller to the 

next unprotected field (auto skip). You may display the attri- 

i bute characters by entering < CTRLF2 >. 


Attribute Characters define the following field characteristics: 


Start of a field. 


E Whether a field is protected or unprotected. (A protected 
| field cannot be modified by the operator; an unprotected 
' field allows data entry.) 


i M Whether an input field (unprotected) accepts alphabetic or 
numetic, or both types of data. 
) B Whether the current field is to be displayed, not displayed, 
or intensified. 
B Whether fields are detectable by light pen. 
& Whether tab stops correspond to the first character of an 
unprotected field (auto skip). 


| B Modified Data Tag (MDT). (Using bit 0, the controller 

searches for modified fields. If the field has been modified, 
bit 0 is set to 1, and the controller updates that field 
accordingly.) 


| Extended Attribute Characters define the following field 
characteristics: 
BI Character type (normal, blink, reverse video, or underlined). 
| Æ Character color. 
Bi Character set. 
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The DSI supports all programming definitions for attribute 
characters and the fields they define. Keyboard operations, 
such as CLEAR, or ENTER, function in the same manner as 
with 3278/79 terminals. 


While the emulator program handles scan code translation, 
IRMA's 8X305 microprocessor handles 3270 controller pro- 
tocol, such as actual data transfer, handshaking, and screen 
buffer maintenance. The 8X305 acts as a supervisor, assigning 
data entered to its proper position and function. It then sends 
this ordered data to the controller and, on return, sends the 
response to the proper source. 


Proper interpretation of data from the buffer requires some 
understanding of attribute bytes. Normally, an attribute byte 
(byte from the last four columns, CO to FF, of the character 
translation table) precedes, and a second follows, any field on 
the screen. The byte preceding the field defines how that field 
is handled. The data word bits for attribute characters in the 
screen buffer are defined as follows: 


76543210 Bit Number 
llabccde Attribute Character 


11 = Attribute identifier 
a = 0 Unprotected 

1 Protected 
b = 0 Alphameric 

1 Numeric 


Cc = 00 Normal display, non-detectable 
01 Normal display, detectable 

10 Bright display, detectable 

11 Non display, non-detectable 

d = Reserved (Must always be zero) 


e = Modified Data Tag 


0 — Field has not been modified. 
1 — Field has been modified by the operator. 


The Extended Attribute Buffer (EAB) is subdivided into 

two types of attributes, Extended Field Attribute (EFA) and 
Extended Character Attribute (ECA). The EFA defines the 
field attributes while the ECA defines each character. The 
ECA is dependent upon the most recent EFA. When the ECA 
is 0, the attributes defined by the last EFA remain in effect. 
The following chart illustrates this relationship. 


Extended EFA ECA ECA ECA ECA EFA ECA 
Attribute G B R 
Buffer R L E 

E 0 0 U 0 D 0 

E E 

N 
Attribute U A B C D P E 
Buffer N R 

P O 

R T 

O 

T 


Characters ‘A’ and ‘P’ are defined as ‘green’ and in an unpro- 
tected field. Character ‘C’ is still part of the same unprotected 
field but has been redefined as ‘blue’. Character ‘E’ is in a pro- 
tected field and is defined as ‘red’. Characters ‘A’ and ‘B’ have 
an ECA value of 0, and their Extended Attribute characteristics 
revert to the most recent EFA. Character ‘D’ also has a value of 
0. Its characteristics revert to the most recent EFA of unprotected 
and green. A non-zero ECA is a temporary redefinition of a 
character attribute and does not effect subsequent characters. 
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For the Extended Field Attributes (EFA) the data word bits are: 


7654321 
aabbbcec 


00 
01 
10 
11 


000 
001 
010 
011 
100 
101 
110 
111 


000 
001 
010 
011 
100 
101 
110 
111 


Bits a,a 


Bits b,b,b 


Bits ccc 


0 Bit Number 


C Extended Field 
Attributes 


Normal Mode 

Blink Character 

Reverse Video Characters 
Underline Character 


Default to Base Color 
Blue 

Red 

Magenta 

Green 

Cyan 

Yellow 

White 


Base character set 
APL 

PS 2 (191 character)* 
PS 3 (191 character)* 
PS 4 (191 character)* 
PS 5 (191 character)* 
PS 6 (191 character)* 
PS 7 (191 character)* 


* not available with IRMA. 


For the Extended Character Attributes (ECA), the data word 
bits ate: 


76543210 Bit Number 


aabbbcce Extended Field 
Attributes 


O0 Reverts to most recent EFA 
01 Blink Character 

10 Reverse Video Characters 
11 Underline Character 


000 Reverts to EFA 
001 Blue 

010 Red 

011 Magenta 

100 Green 

101 Cyan 

110 Yellow 

111 White 


Bits ccc = 000 Reverts to EEA 

001 APL 

010 PS 2 (191 character)* 
011 PS 3 (191 character)* 
100 PS 4 (191 character)* 
101 PS 5 (191 character)* 
110 PS 6 (191 character)* 
111 PS 7 (191 character)* 


Bits a,a 


Bits b,b,b 


When processing a screen buffer, the programmer must 
remember the most recent attribute byte encountered. Note 
that the screen size for attribute purposes is determined by the 
terminal model (1920 x 1 for Mod 2; 2560 x 1 for Mod 3: 3440 
x 1 for Mod 4). Ends of lines play no part in attribute interpre- 
tation. Also, attributes are displayed on the screen as blanks. 


BASICA subroutines are provided to handle line and field teads 
keystroke sends, and status checks. These routines implement 
all necessary tabular character translations and ptoper hand- 
shaking. Using these subroutines is by far the easiest approach 
to this programming since all of the complicated functions are 
correctly handled. For a discussion of these subroutines, see 
Appendix C. 


, 
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Error Conditions 


This section is designed to assist in correction of the most 


common problems encountered by IRMA users. The following 
paragraphs list the error message or screen condition associated 
with each problem, followed by a brief explanation of the 
problem that prompted the message or condition, and one 

or more suggestions for possible correction of the error. 


Problem 


Keyboatd types do not match. The controller port is not con- 

figured for a TYPEWRITER style keyboard. 

Solution(s) 

1. To clear the error message from the screen, press the RESET 
(F10) key. 

2. If this action does not clear the message, ensure that the 


controller port is configured for a 3278 type 2A typewriter 
style keyboard. 


226 Error 


Problem 
A coaxial cable communication problem exists. 


Solution(s) 


1. Check for cuts, breaks, or any other damage to the coax cable. 


2. Ensure that the coax cable is properly connected. 


- 503 or 404 Error 


402 Error 


Problem 

Incorrect controller port configuration. 

Solution (s) 

Configure the controller port to match the device being used. 


Problem 

The controller port is configured for other than the device 
being used (i.e. Mod 2 plugged into Mod 4, etc.). 
Solution (s) 

1. Enter RESET (F10) or CTRL/PAGE DOWN. 

2. Reconfigure the controller port. 


Insufficient Space for Screen Buffer 


Problem 

IRMAJink file transfer was executed, and this message was 
received. 

Solution(s) 

1. The file must be an XEDIT file. - 


2. Verify that your on-board firmware 1s Revision 3.14 or 
above. 


Program Too Large for Memory 
Problem 


The user may be running under DOS 1.0, not supported by 
IRMA. If the user receives this message while running under 
DOS 1.1 or 2.0, the program being executed requires more 
RAM storage than is available. 

Solution(s) 

1. Operate under DOS 1.1 or 2.0. 

2. PC requires at least 128K RAM capacity. 


3. The IRMA diskette is dual-density, double-sided. Your PC 
may be equipped with a single-sided disk drive. IRMA is 
available on single-sided diskettes; contact DCA. 


Blank Screen with Blinking Cursor 
Problem 
Inactive controller port or faulty coax connection. 
Solution(s) 


Ensure that the controller port is active and that all 
connections are secure. 


Invalid Response From Edit 
Problem 
IRMAJink file transfer was executed, and this message was 
received from TSO EDIT or CMS XEDIT. 
Solution(s) 


1. Prior to execution of IRMAIink file transfer, E78 must have 
been executed and TSO must have a Ready message, or 
CMS must be in the XEDIT mode. 

2. If using TSO, ensure that the user ID profile matches the 
profile outlined in IRMA documentation. 

3. If using CMS, an IRMA XEDIT data set must have been 
allocated with profiles as shown in the IRMA 
documentation. 


4. Check the host file type. The file type must be valid as 
defined under TSO or CMS. 
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| Using GENX 


GENX is a menu-driven program that allows you to create 
customized versions of the E78 emulator program, with special- 
| ized keyboard, color, and communications defaults. By using 
GENX, IRMA may be configured to accommodate features 
and function modes best suited to the system you are using. 


GENX handles a variety of functions, including calibration of 
| a light pen, enabling of COMI: inputs, setting of screen and 
keyboard types, and selection of PC “look-similar” modifications. 


Only use GENX if you wish to customize E78 program. 
| Otherwise, you can use IRMA without using the GENX 
| option. 


.. GENX Description 


GENX allows you to select options that describe parameters 
of the system you are using. Selecting the appropriate options 
causes GENX to "patch" these options into E78. The next 
| time IRMA is used, these selected options become the default 
parameters. If different or additional parameters are required 
E for other users, a second version of E78 should be generated. 
Therefore, it is possible to have several customized versions of 
} E78, each fulfilling the requirements of a specific application. 
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GENX is executable in two forms. One format is for the general 
user who wants to make use of the normal defaults without 
altering the keyboard mappings or altering E78 to accom- 
modate unique requirements. The second format is for those 
usets who require special configurations that are not included 
in the default selections. 


The following discusses the first GENX format. If you wish to 
use the second GENX format, contact DCA Customer Support 


to obtain a copy of instructions on how to use the second format. 


GENX Files 


In order to run GENX, several files must be available in the 
current directory. These files are described below. 


GENX.EXE Actual GENX program which displays the 


E78.MAP 


E78.GEN 


menus and patches the program file 


Symbol table for the program to be modified. 
This file is produced by the DOS LINK pro- 
gram and contains entries which tell GENX 
how to find the various tables and switches 
used to apply E78 patches. This file is in a 
simple format and may be typed. 

Text file initially prepared by DCA containing 
information used by GENX to display menus 
and make user patches. 


Executing GENX creates several files in the current directory. 
These files are listed below. 


CE78.EXE 


CE78.LOG 
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This is your customized version of E78. This 
name is used to execute a customized E78 
program. 

Text file in a format similar to that of the 
E78.GEN file described above. The CE78.LOG 
file contains a listing of all patches installed in 
the CE78.EXE file. 


For general use, the E78GEN.BAT file contains instructions for 
I starting GENX. This produces the customized E78 program, 
CE78.EXE. 


These same files are also used by the second GENX format. 
| For the second format, you must perform some file 
modification. 


| For example, to create a special keyboard modification not listed 
among the default settings, the file E78.GEN must be modi- 

| fied by the user prior to generation of the actual CE78.EXE 
program. However, for most applications, the first format is 
adequate for creating the customized version of E78. 


| Using GENX 


If not already accomplished, you should make duplicate copies 
of the E78 diskette and label them as working copies. Store the 
original E78 diskette in a safe place for later use. 


WARNING: Do not modify the original diskette. Make all 
modifications to the working copies of the E78 diskette. 


All modifications must be made while opetating in PC-DOS. 
The following steps explain how to begin using GENX. 


STEP 1: Insert PC-DOS diskette into Drive A 


i STEP 2: Turn on your computer 
\ STEP 3: Enter the current date 
STEP 4: Enter the current time 


The DOS prompt A> should appear. Replace the PC-DOS 
| diskette in drive A with your IRMA diskette. 


STEP 5: Enter E78GEN To begin running GENX 
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Ihe GENX Main Menu 
ee eae 


Following display of copyright, trademark, and revision infor- 
mation, the following main menu is displayed. 


E78 Terminal Emulator Customization Menu 


1 — Disable 26th line status display — 
3 — Make emulator auto-resident 
5 — Make 2 color mode default 
6 — Make 7 color mode default 
8 — Make SHOW COLUMNS default 
10 — Convert to pre-1.20 keyboard 
12 = Select KEYBOARD & SCREEN type 
13 = Set LIGHT PEN corrections 
14 = PC look-alike patches 
15 = Setup COM: input parameters 
17 — Disable NON-DISPLAY display 
18 — Force dark blue to cyan 
20 — Select IRMAlette operation 


99 = Exit GENX program 
Your selection: 


Menu Options 
Ss 


The following table describes menu options 1 through 10. 
These options are complete as listed, without submenus. 


Menu items with submenus are described on subsequent 
pages with menu screens shown. 


Option Description 

1 Disables the display of the status line (line 26) 

3 Causes the customized E78 program to become resident 
upon power-up 

5 Causes the 4-color mode to become the default 

6 Causes the 7-color mode to become the default 
Causes the unprotected null fields to be filled with dots, 
showing the field size 

10 Causes conversion to the pre-1.20 keyboard. Should not be 


selected if you expect to later use the non-typewriter key- 
boards (e.g., APL, TEXT, or DATA ENTRY). 


The following describes GENX menu options 12 thru 15. 


KEYBOARD AND SCREEN ‘ype — Option 12 


Menu option 12 allows the selection of KEYBOARD and 
SCREEN types. Changes to keyboard and screen types may 
require changes to coax configuration. The following submenu 
appears if you select option 12: 


E78 Terminal Emulator Customization Menu 
Select KEYBOARD & SCREEN type 


1 — Typewriter (default) 17 — No attached keyboard 
2 — Typewriter w/ numeric lock 18 — Reserved 0000 
3 — Typewriter, PSHICO 19 — Reserved 0011 
20 — Reserved 1011 
9 —APL 
6 — APL w/ numeric lock 22 — Mod 2 Screen [24x80] 
7 — APL, PSHICO 23 — Mod 3 Screen (32x80] 
24 — Mod 4 Screen (43x80] [Bk] 
9 — Text 


10 — Text w/ numeric lock 


12 — Data Entry | 

13 — Data Entry | w/ numeric lock 
14 — Data Entry 

15 — Data Entry Il w/ numeric lock 


98 - Return to previous menu 99 - Exit GENX program 
Your selection: 
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Item 12 presents options for selecting all possible keyboard 
configurations. You should be aware, however, that selection 
of a specific keyboard does not necessarily mean that the result- 
ing keyboard configuration is useful. For example, TEXT and 
APL keyboards should not be selected unless an extended 
character set is installed in the display adapter board. If either 
the TEXT or APL keyboard is selected without installation of 
the character set, special charactets are displayed as musical 
notes and game symbols. 


In addition, selection of either DATA ENTRY keyboards moves 
the numeric and PF keys into unusual locations. To make DATA 
ENTRY keyboards workable, you must make several decisions. 
These decisions are based upon the specific applications 
involved, as well as upon the layout of the PC keyboard versus 
that of the 3278 keyboard. If DATA ENTRY keyboards are 
essential to the application, the DCA Technical Support Group 
will assist you in the construction of a GENX menu item 
appropriate to a specific application. 


LIGHT PEN Correction — Option 13 
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Menu option 13 is used for light pen correction. The option 
should be used only when pressing the light pen against the 
edge of a screen field causes the adjacent field to be selected. 
If this occurs on the left edge of the field, use the MINUS ( - ) 
selections. If it occurs on the right edge of the field, use the 
PLUS ( + ) selections to calibrate the light pen. If none of the 
available selections result in correct light pen operation, the 
pen may be defective or internally maladjusted. To enable the 
light pen, attach the pen to the display adapter board. 


The following submenu appears if you select option 13: 


E78 Terminal Emulator Customization Menu 


Set LIGHT PEN correction 
1— -8 X..0 
2— -2 .X.0 
3— -1 ..Xo 
4—>0 0 
5— +1 oX 
6— +2 o.X. 
7— +3 0..X 
98 = Return to previous menu 99 = Exit GENX program 


PC Look-Alike Patches — Option 14 


Menu option 14 is used for PC look-alike patches. The following 
submenu appears if you select option 14: 


E78 Terminal Emulator Customization Menu 
PC look-alike patches 


1 — Eagle 1800 screen cleanup 

3 — Force Horizontal update sync 

Ə — Disallow 26 line color display 

7 — Always set cursor shape on exit 

98 - Return to previous menu 99 - Exit GENX program 


Your selection: 


The following table describes available submenu options for 
option 14: 


ae a o eee B: 
Option Description 
1 Eliminates the dots that sometimes appear on the screen. 
Also enables “8086”type screen access. Should be selected 
when IRMA/E78 is used in any 8086-based machine. 


3 Necessary to remove or reduce screen flicker on some non- 
IBM machines, notably the EAGLE PC 


5 Selected when using the COMPAQ color/monochrome 
display 


7 If you are using a monochrome card, this option will set 
your cursor shape to an underline character every time you 
exit E78. If you do not select this option, the cursor shape 
may be a dash. 


B-7 


Setup COMI — Option 15 


Menu option 15 is used to set up COMI: input parameter. 
The following submenu appears if you select option 15: 


E78 Terminal Emulator Customization Menu 
Setup COM1: input parameters 


1 — Enable COM’: character input 
2 — Disable COM: key clicks 


4 — Select 4800 baud 
5 — Select 2400 baud 
6 — Select 1200 baud 


7 — Select 300 baud 
B — Select, 110 baud 


98 = Return to previous menu 99 - Exit GENX program 


Your selection: 


The following table describes available submenu options for 


option 15. 
Option Description 
1 Enables asynchronous character input (such as barcode 
readers) 


2 Disables key clicks 
Options 4-8 establish the baud rate for the device attached to COMI. 


4 4800 baud 
5 2400 baud 
6 1200 baud 
7 300 baud 
8 110 baud 
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Main Menu Options 17, 18, and 20 


The following describes main menu options 17, 18, and 20: 


Option Description 
17 When CTRL & F2 are pressed, IRMA will display its cur- 

rent attributes on your PC screen. A “non-display” field 
will show attributes which are not displayed during nor- 
mal operation, such as your password. For security reasons, 
displaying this information may not be acceptable. This 
option will disable the non-display field while allowing 
you to view other IRMA attributes. 


18 Makes the dark blue on your screen lighter and brighter, 
| thus making it easier to read. 

20 This option must be selected if you are using IRMAlette. 

For more information, see the IRMAlette User's Manual. 


Su 


Without the auto-resident feature, you must type CE78 

« RETURN > each time you need to access the 3270 mode 

! (unless you make CE78 resident by pressing < CIREHOME >). 
However, if you select option 3 from the GENX main menu, 
“Make emulator auto-resident”, you can automatically alter- 
nate between 3270 mode and PC mode by simply pressing 
both SHIFT keys at the same time. 


To install auto-residency, select option 3 from the GENX main 
menu. To execute the auto-resident version, type CE78 

« RETURN > from the DOS prompt. Copyright, trademark, 
revision information, and USER CUSTOMIZED VERSION is 
displayed. At this point, you can enter 3270 mode by pressing 
both SHIFT keys simultaneously, (pressing both SHIFT keys 
again returns you to PC mode). 


You must type CE78 < RETURN > each time the PC is 

i “booted.” However, the CE78 command may be placed in the 
AUTOEXEC. BAT file. This causes the CE78 command to 

| execute automatically whenever the PC is booted. 
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| BASICA Subroutines 


The IRMA screen buffer is accessed by entering keystrokes from 
your terminal, as in in normal use. The IRMA screen buffer may 
j be accessed by user-written programs as well. Since individual 
user needs are often quite varied, no single comprehensive PC 
program is appropriate for all users. However, predictable data 
handling routines have been formulated into subroutines for 
use in BASICA programs. 


The BASICA subroutines discussed in this section provide the 
foundation for automatic data transfer via IRMA. Programmers 
may access the appropriate routines for many of the compli- 
cated functions associated with passing data to and ftom the 
host. The subroutines allow the generation of keystrokes, as 
well as the reading and writing of screens from within a user 
program. The routines may also serve as a model for the pro- 
grammer who wishes to access IRMA in PASCAL, FORTRAN, 
and other languages. 


Prior to using any of the routines in this section, programmers 
should refer to Chapter 5, "Technical Reference" as well as the 
IBM PC Technical Reference, IBM GA27-2849 3270 Information 
the mainframe application with which the user wishes to 

] communicate. 


To speed execution of an individual program, DCA recom- 
mendis use of the Compiler version of Microsoft? BASIC. How- 
ever, for ease of the debugging process, we recommend initial 
programming in the interpretive BASIC forms of Advanced 

or Disk BASIC. 


Features 


May be used with BASIC, BASICA, and the IBM BASIC 
complier. 


Access to screen data by row/column or field number. 


B Ability to read, modify, or write unprotected fields. 


B Automatic code conversions between ASCII and 327X 
display buffer. 


Bi Full support of total ASCII character set as defined in the 
IBM PC Technical Reference. 


Æ Easy modification of character translation tables for support 
of unique user applications. 


BB Fully commented sources [PC78SUBS.LST] for detailed 
examination or maintenance. 


Bl Additional sparsely commented source [PC78SUBS.BAS] 
for reduced storage requirements in large-user applications. 


M Ability to access any screen information, including Attrib- 
utes and Extended Attribute Buffer (EAB). 


M Easy access to IRMA status information, including alarm 
status, cursor position, and line sync indicator. 


BB Capability of triggering user application program action on 
screen updates from the host computer. 


Subroutines 


KEYS 


Before using any of the subroutines described on the following 
pages, an initialization call must be made. This call causes all 
parametets to be set to their starting values. The initialization 
call must be made prior to the use of any other routine. 
Include at the beginning of your program: 


GOSUB 50000 


This appendix shows each routine in two ways: name and 
statement number. BASICA is able to call routines by state- 
ment number only; however, some users find the use of routine 
names convenient. Note that each routine begins with a REMark 
statement that includes the proper name of the routine. 


Routine descriptions include variables to which the user must 
assign values prior to calling the routine (Input), as well as 
variables assigned values by the routine itself (Output). All 
input vatiables MUST be given values by the user. Reserved 
vatiables are listed at the end of this document. 


In addition, this appendix contains a sample BASICA program 
illustrating the use of each routine. This program may be used 
as a guideline for user-written data-handling programs. 


NOTE: The sample programs provided are samples only. 
No attempt should be made to execute the programs. 


Keystroke Send 
Statement 
Number: 50600 
Routine 
Name: KEYS 
Input 
Variables: IVST$ String to be sent to host 
Output 


Variable: IVER% Error status 
(device or key timeout) 
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Remarks: This routine sends strings as keystrokes to the host 
computer. The string length is confined to BASICA’s limit of 
255 characters. 


NOTE: See Reserved Names section for specification of error 
status values, 


Reference: In Appendix A, the sample program, SAMPLES.BAS, 
lines 600 - 620, provides an example of sending keystrokes. 
Line 602 sets the value for the input variable; line 604 calls the 
Keystroke Send subroutine. This subroutine occupies lines 
50600 - 50660 of the same sample program. Line 612 sets the 
input variable to a new value and line 614 calls the Keystroke 
Send subroutine. 


How To Use: To send a keystroke to the mainframe computer, 
the program input variable I VST$ must be set equal to the 
string representing the keystrokes to be sent. For example, to 
send the characters ABCD, the program would read: 


IVST$ = “ABCD” 
GOSUB 50600 


When the keystroke charactets to be sent are other than simple 
characters (A, B, C, ; etc.), as in Function 1 (F1) or Control C 
(CTRL C), these special characters are represented by the string 
function CHR$(n), where CHR$ indicates a special character 
to follow, and n is the ASCII code value of the character. For 
example, to send the characters ABCD and a < RETURN >, 
the program reads: 


IVST$ = “ABCD” + CHR$(13) 
GOSUB 50600 


In this example, 13 is the ASCII code value of carriage return. 


For certain keys or key combinations that cannot be represented 
in standard ASCII code (PF and PA keys, for example), the 
characters to be sent are represented by Extended ASCII code 
values. In such cases, the input variable [VST$ must be set 
equal to the string function CHR$(00) = CHR$(n). In this 
string, 00 indicates that extended characters follow, and n 
represents the Extended ASCII code value of the key combina- 
tion needed to invoke the desired function. 


For example, consider the PF1 key. The PF1 key is invoked by 
striking ALT 1 (see keyboard layout). The Extended ASCII 
code value of ALT 1 is 120 (ASCII code values and extended 
ASCII code values can be found in appendix G of the IBM 
BASIC manual.) 


Thus, the program would read: 


IVST$ = CHR$(00) + CHR$(120) 
GOSUB 50600 


In another example, the PA2 key is invoked by striking CIRL 
K. The Extended ASCII code value of CTRL K is 37. Thus, to 
send PA2, the program reads: 


IVST$ = CHR$(00) + CHR$(37) 
GOSUB 50600 


Please note that this routine would not be used by itself. It is 
used in conjuction with several others. This explanation was 
ptovided to clarify the use of standard ASCII characters and 
the extended ASCII characters used by the IBM PC. Please 
examine the sample program provided to see how this routine 
uses and is used by other routines. 


Find Unprotected Field 
Statement 
Number: 50700 
Routine 
Name: FIND 
Input 
Variables: [VFL% Field number to be found 
Output 
Variable: IVER% Error status (device timeout, 


field error) 
LVCB96 Pointer to leading attribute 
LVCE% Pointer to trailing attribute 
IVFS96 Current field length 
IVRO% Row address of field data 
LVCL% Column address of field data 
I.BUF96 (0) Leading attribute character 
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FNEXT 
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Remarks: This routine searches IRMA’s internal screen buffer 
for unprotected fields. As it searches, each unprotected field 

is counted until the specified count is reached. The absolute 
address of the selected field's unprotected attribute is returned 
in LVCB%. The field contents are then scanned, counting 
characters and searching for another attribute. I VCE% is left 
as an absolute pointer to the trailing attribute. 1 VCB% and 
IVCE% are used internally for the "Find Next" routine and 
for several field type consistency checks. The following variables 
SHOULD NOT be modified by the user: LV CB%, LVFS%, 

I VCE96, I.BUF96. They must retain their values which were 
assigned by the FIND and FNEXT subroutines, since they 
provide the link between these subroutines as well as between 
successive FNEXT subroutine calls. 


Reference: In the sample program, SAMPLES.BAS, provided 
in the Appendix, note lines 200 — 240. This portion of the 
sample program finds and prints each field. Line 202 sets the 
value for LVFL% to one to find the first field. Line 210 calls 
the subroutine, FIND. The next portion of the program reads 
the found field and prints the specified information. Line 240 
calls the subroutine which finds the next field. 


Find Next Field 
Statement 
Number: — 50800 
Routine 
Name: FNEXT 
Input 
Variables: [VFL% Field number to be found 
Output 


Variables: IVER% Error status 

(device timeout, field error) 
IVCB% Pointer to leading attribute 
IVCE% Pointer to trailing attribute 
IVFS96 Current field length 
IVRO% Row address of field data 
IVCL96 Column addtess of field data 
I.BUF% (0) Leading attribute character 


RDFLD 


Remarks: This routine increments IVFI96, initializes the 
internal variables, and goes to the FIND routine. 


Reference: For an example of usage, see lines 200 — 240 of 
SAMPLES.BAS listed in the Appendix. Line 230 calls FNEXT. 
This routine can be used only after FIND has been used, as it 
depends on the value of IVFI96 specified in FIND. 


Read Field Contents 
Statement 
Number: — 50900 
Routine 
Name: RDFLD 
Input 
Variables: None 
Output 


Variables: IVER% Error status (device timeout) 
LBUF% () PC buffer is filled with field 

contents. I.BUF96(0) contains the 
leading attribute character. 
I.BUF96(1) through I.BUF96 
(IVFS%) contain screen data and 
EAB information. Screen data is 
contained in the low-order byte, 
and EAB information is in the 
high-order byte. 


Remarks: RDFLD transfers IRMA's internal screen memory of 
screen data and EAB contents to an internal array within the 
PC. FIND and FNEXT must be called to setup buffer pointers 
before calling RDFLD. 


Reference: RDFLD is also used in the lines 200 — 240 of 
SAMPLES.BAS. 
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WRELD 
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Write Field 


Statement 
Number: — 51000 


Routine 
Name: WRFLD 
Input 
Variables: I.BUF% () Internal screen buffer 

IVCB96 Initial attribute pointer 

IVFS96 Field length 
Output | 
Variable: IVER% Error status 

(device timeout, illegal character) 


Remarks: This routine writes the contents from the PC's inter- 
nal buffer to IRMA’s screen memory. WRFLD transfers data to 
the screen memory with ertor checking appropriate to the 3270 
terminal system. The field is verified to be non-protected, 

and only LVFS% characters are written. If a non-numeric 
character is found in a numeric only field, the routine aborts 
without modifying the screen memory. This routine must be 


preceded by a FIND. 


Reference: SAMPLES.BAS, lines 300 — 345, gives an example 
of how one might use this subroutine. This portion of the pro- 
gram finds a field, and puts a string within that field into the 
PC’s buffer. WRFLD writes the contents of the PC’s buffer 
into IRMA’s internal screen memory. 


\ 


GISTR 


PUSTR 


Get String 


Statement 
Number: 


Routine 
Name: 


Input 


Variables: 


Output 


Variables: 


51100 


GISTR 


LBUF% () Internal screen buffer 


LVFS% 
IVOO% 


IVER% 
LVST$ 
LVOO% 


Field length 
Offset within field to begin transfer 


Error status (Offset out of bounds) 
ASCII data recovered from buffer 

Offset to REMAINDER of field (If 
field is longer than 254 characters) 


Remarks: The GTSTR routine retrieves the field data from the 
PC's internal buffer and converts the characters to the extended 
ASCII used by the PC in its display buffer. 


Reference: An example of this subroutine is found in lines 
200-240 of the sample program. GTSTR converts IRMA's 
buffer code to the extended ASCII character set used by the 
PC's display buffer. To transfer data from one buffer to 
another, this conversion must take place before the stting can 


be read. 


Put String 


Statement 
Number: 


Routine 
Name: 


Input 


Variables: 


Output 


Variables: 


51200 
PUSTR 


LVST$ 
IVOO% 


IVER% 
IVOO% 
I BUF% 


String to be placed in buffer 
Offset in buffer at which to begin. 


Error status (device timeout) 
Offset to remainder of field 
Screen format buffer 
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Remarks: PUSTR writes an ASCII string into the PC's internal 
display buffer. The routine moves the ASCII string into the 
PC's internal buffer and converts the string to 3270-type buffer 
codes. This routine should be called prior to à WRFLD in 
order to place the data to be written in the internal buffer. 


Reference: An example of this subroutine is found in lines 
300-345 of SAMPLES.BAS. PUSTR is used here in combination 
with FIND and FNEXT. FIND locates the field and PUSTR 
translates the ASCII string, LVST$, into IRMA's buffer code 
and that string to the internal buffer (I.BUF96). WRELD takes 
I.BUF% and writes it in the screen buffer. 


Read Absolute Screen 
Statement 
Number: 51300 
Routine 
Name: RDABS 
Input 


Variable: IVRO% Row number of starting character 
IVCL% Column number of starting character 
IVRR% Length of area to read 


Output 
Variables: IVER% Error status (device timeout) 
IVRO% | Row position after last character read 
IVCL96 Column position after last 
character read 
LVST$¢ ASCII form of screen data 
LVSo$ EAB data 


Remarks: This routine moves IRMA’s screen memory characters 
and EAB data into user strings from a given row and column 
screen position, for a given length. Screen characters are trans- 
lated into ASCII. EAB data is unmodified. 


Reference: The example for this subroutine is found in lines 
400-412 of SAMPLES.BAS. Variables are set for the row and 
column at which the read is to begin, and the number of 


GICP 


columns (characters) to be read before calling the subroutine 
in line 406. In this particular example, the procedure is per- 
formed five times with the first 40 characters (IVRR%) of the 
top five lines (LVRO96) of the screen displayed. (Value for 
IVRO% is determined by the FOR/NEXT loop, lines 404 
and 412.) 


Get Cursor Position 


Statement 
Number: 51400 


Routine 

Name: GTCP 

Input 

Variables; None 

Output 

Variables: IVER% Error status (device timeout) 
LVRO96 Cursor row position 
LVCL% Cursor column position 


Remarks: GTCP reads the 3270 screen cursor position from 
IRMA. It should be noted that the row address may not be 
within the confines of the normally displayed screen. 


Reference: Lines 500-520 of SAMPLES.BAS provides an exam- 
ple of GICP. This portion of the program retrieves the cursor 
position and prints the location of the buffer pointers. It also 
calls a subroutine listed in lines 900-980, which rettieves and 
displays the state of the main and aux status words. 
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XPOR 


GSTAT 
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Execute Power-on-reset 


Statement 
Number: 50100 


Routine 

Name: XPOR 

Input 

Variables: | None 

Output 

Variables: IVER%  Frror status (device timeout) 


Remarks: The XPOR routine causes the controller to set the 
terminal as though it has just been powered up. This call can 
be useful in clearing some controller errors, especially if the 
coaxial cable has been disconnected. 


Reference: This subroutine is not used in the sample program; 
however, the subroutine is listed in lines 50100-50108. Its use 
should be limited to particular conditions, such as during data 
transfer if the controller has sent data which does not appear 
to be that which was requested. When all other attempts to 
remedy the problem have been exhausted, the insertion of this 
routine into the program resets the terminal. The controller 
acknowledges the terminal as if the terminal has just been 
powered on. 


Get Status 


Statement 

Number: 50200 

Routine 

Name: GSTAT 

Input 

Variables: None 

Output 

Variables: LVST% Main device status 
IVAX% Auxiliary device status 
IVER% Error code 


RSTAT 


Remarks: GSTAT reads the current main and aux status from 
IRMA. Each bit in these status words has a specific meaning. 
Parameters are provided (See the list at the end of this section) 
to a user to ‘and’ mask the status with a parameter to test for a 
specific condition. For example, to test for the buffer modified 
status (I.MDI% from table), the program would read: 


GOSUB 50200 
IF LVST% AND ILMDI% THEN GOTO 


Bit mask parameters for both LVST% and IVAX% are 
provided. 


Reference: Lines 700-714 contain an example of this subrou- 
tine. The routine reads the status, displays the current status, 
clears each of the status bits, and then reads and displays the 
status after the clear. 


Reset Status 


Statement 

Number: 50300 

Routine 

Name: RSTAT 

Input 

Variable: IVST%1 Bitsin status word to be reset 
Output 

Variables: IVER% Error status (device timeout) 


Remarks: RSTAT resets status bits in the main status word. If a 
status bit such as ILMPR% (controller reset) is read in a GSTAT, 
the user program must take any action needed, then reset the 
bit. This can be done by calling RSTAT with LVST% as set by 
GSTAT. Note that any bit set in IVST96 when RSTAT is called 
will be reset. 


Reference: Lines 700-714 include an example of this subroutine. 
After displaying the status, the status bits are cleared or reset. 
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STDNM 
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Set Trigger Data AND Mask 
Statement 
Number: 50400 
Routine 
Name: STDNM 
Input 


Variables: IVRO% Row for trigger test 
LVCL% Column for trigger test 
IVMS% Trigger mask value 
LVVL% Trigger test value 


Output 
Variables: IVER% Error code on exit 


Remarks: STDNM allows the program to declare a location on 
the screen, for a delay, until a specific value is written into that 
location. WTRIG does not return until that value is found in 
the requested location. The location = value test is made only on 
those bits which have a mask value of 1. Thus, to make an exact 
match test, the value of IVMS% must be set to 255 (decimal), 
which is all 1 bits. The condition of LVMS% =0 is special. If 
the mask is 0, any CHANGE in the location requested results 
in the return of WTRIG. In this case, LVVL% is unused. 


Reference: Lines 800-899 contain an example of this routine. 
Lines 802 and 804 set the input variables. The row and column 
ate set to (1,1) which positions the pointer to the upper left 
corner. Mask and text values are both set to 0, which results in 
a trigger whenever any change occurs in 1, column 1. 


WTRIG 


Wait Trigger 


Statement 
Number: — 50500 


Routine 
Name: WTRIG 
Input 
Variables: IVTO% Time constant (in seconds) 
Output 
Variables: IVER% Error code 
IVIO% Time remaining 


Remarks: WTRIG waits until a specific trigger event occurs 
(see STDNM). The time constant, IVTO, allows the program- 
mer to select how long (in seconds) WTRIG waits for the event 
to become true. 


Reference: This subroutine is used in conjunction with 
STDNM. The WTRIG routine is called in line 824. It allows a 
program to wait for a trigger condition specified by STDNM 
to occur. If LVTO% returns with a value of 0, no trigger event 
has occurred, and the call to WTRIG has timed out. 
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Reserved Names 


The BASICA subroutines occupy statement numbers from 
50000 to 59999. No user statements should be included in 
this range. The variables, flags, and parameters used by these 
routines ate named to prevent conflict by user routines. The 
following list illustrates this usage. 
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Name 


LCRD% 
LCWR% 
LCAC% 
LCCL96 
ICKY% 
I.CSP96 
LCXP96 
LCMD% 
LCTA96 
ICIM% 


Name 


LMAX% 
I.MTG% 
ILMKY% 
IL.MXX%* 
IL.MPR% 
I.MCC96 
I.MDI96 
ILMCM% 


IRMA commands 


Use 


Slave read data 

Slave write data 

Slave aux status and cursor update 
Slave main status bit clear 

Slave send keystroke 

Slave selector pen strike 

Slave execute power-on-reset 

Slave load trigger mask and data 
Slave load trigger address 

Slave set attention request mask 


Main status word (LVST%) bit mask 


Use 


Auxiliaty status change 

Trigger event occurred 

Slave key scan code buffer empty 
Unused, reserved for future use 
Controller requested reset occurred 
Last command complete flag 

IRMA buffer modified by controller 


Type 

Parameter 
Parameter 
Parametet 
Parameter 
Parameter 
Parameter 
Parameter 
Parameter 
Parameter 
Parameter 


Type 

Mask 
Mask 
Mask 
Mask 
Mask 
Mask 
Mask 


Cursor position modified by controller Mask 


Auxiliary status word (IVAX%) bit mask 
Name Use lype 


I.MXX%* Unused, reserved for future use Mask 
IMPO% IRMA polled since last status read Mask 
LMAL% Sound alarm request Mask 
IMDD% Display disabled (inhibit) request Mask 
LMCI% Cursor inhibited Mask 
IMRC% Reverse block cursor select Mask 
IMBC% Blinking cursor select Mask 
LMCK?6 Keyboard clicker enabled Mask 


*Known to be duplicates — Reserved 


IRMA device code parameters 


Name Use Type 


LRGO96 Device code of register 0 Parameters 
IRGI% Device code of register 1 Parameters 
LRG296 Device code of register 2 Parameters 
LRG396 Device code of register 3 Parametets 
LRST% Handshake slave to start select Parameters 
IRAK% Handshake ATTN acknowledge Parameters 
LRAF% Handshake flag read select Parameters 
IRMA handshake flag bit masks 
Name Use Type 


IMAT% IRMA requests System Unit attention Mask 
IMBS% IRMA busy with System Unit request Mask 


BASICA internal use temporary variables 


IVT0% IVT1% IVT2% IVT396 IVT496 Temp. variable 
IVT596 IVT8% IVT996 ‘Temp. variable 
Ivso$ IVSi$ LVS2$  IVT3$ LVS4¢$ Temp. variable 
LVI5$ LVS6$ IVS7$ IVS8¢ LVS9$ Temp. variable 
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Name 


I VER96 


LVST% 
IVRO96 


IVCL96 
IVMS96 
LVVI96 
IVFG96 
IVST$ 
LVEL% 
IVAX% 
IVOO96 
LVRR% 
IVCB96 
IVCE96 
ILVES% 
IVTO% 
LTAB96 
I.BUF96 


BASICA subroutine I/ O variables 


Use 


Errot code returned to user 
0— No error occurred 


1— IRMA did not respond to command 


2 — Row number out of range 
3— Column number out of range 
4 — Byte value out of range 
5 — Invalid field type for operation 
6— Invalid character in NUMERIC 
only field 
7 — Field number out of range 
8— Invalid extended key code 
9 —Timeout on key send attempt 
10 —Timeout on trigger wait event 
11 — Illegal internal buffer pointer 
12 — Field or string too long 
13 — Found field does not match 
internal buffer type 
14 — Buffer offset out of range of 
internal buffer 
15 — Bad key scan code 


Main status word 

Screen row number 

(0-24 [0 is the status line, row 1 starts 
at the top of the screen]) 

Screen column number (1-80) 
Trigger mask byte 

Trigger value byte 

General Boolean flag 

General string variable 

Current field length 

Aux status value 

Buffer offset pointer for string I/O 
Raw screen read data length 

Internal pointer to beginning of field 
Internal pointer to end of field 
Internal field length (size) 

Timeout constant 

Code conversion tables 

Screen format buffer 


Type 
Variable 


Variable 
Variable | 


Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 


The aforementioned parameters are constants. BASICA does 
not provide for any paramettic declarations; therefore, all basic 
subroutines use one set of variables, which are initialized to 
the correct value. Parameters NEVER change during a program 
execution. 


The temporary variables listed above ate used by these sub- 
routines to hold values needed during execution. No data is 
guaranteed to be left in any of these variables. 


The argument-passing variables are used to pass data to and/or 
from the BASICA subroutines. In the description of each rou- 
tine, those variables listed as INPUT must be set prior to the 
GOSUB. Variables listed as output ate updated during routine 
execution. Note that some variables are both input and output. 


The user is warned that these routines provide the protection needed 
to prevent the sending of illegal data to the 3270 network. This pro- 
tection is only available if the routines remain unmodified. 
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Basica Sample Programs 


100 PRINT "Building IRMATABS.OVR for IRMASUBS package" 

110 DEFINT A-Z 

115 DEF SEG 

120 DIM 1. TABS 1279) 256s256*5124256 

130 RESTORE 

135 FOR 1.V10%=0 TO 1279 

140 READ 1.TAB$*(I.VTO*) 

145 NEXT 

200 BSAVE "IRMATABS.OVRH",VARPTR(I. TABR(0)]),2560 ’ Save the whole array 
210 PHINT "Build complete. " 


220 NEW 

300 REM Offsets into I.TAB* are as follows: 

302 REM 

304 REM 000 - ASCII to buffer code table (256 entrys) 
306 REM 256 - Buffer code to ASCII] table (256 entrys] 
308 REM 512 - Normal keycodes to key no. (256 entrys) 
310 REM 768 - Extended keycodes to key no. (256 entrys) 
312 REM 1024 - Key number to scan code (256 entrys) 
320 REM 


59600 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 : 'X*ASCII 
59601 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 
59602 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 
59603 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 
59604 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 
59605 DATA &h0000, &h0000, &h0010, &h0019, &h0013, &h002C 
59606 DATA &h001A, &h002E, &h0030, &h0012, &h000D, &h000C 
59607 DATA &hOOBF, &h0035, &h0033, &h0031, &h0032, &h0014 
59608 DATA &h0020, &h0021, &h0022, &h0023, &h0024, &h0025 
59609 DATA &h0026, &h0027, &h0028, &h0029, &h0034, &hOO0BE 
59610 DATA &h0009, &h0011, &h0008, &h0018, &h002D, &h00A0 
59611 DATA &h00A1, &h00A2, &h00A3, &h00A^4, &h00A5, &h00A6 
59612 DATA &h00A7, &h00A8, &h00A9, &h00AA, &hOOAB, &HOOAC 
59613 DATA &h00AD, &h00AE, SHOOAF, &h00BO, &hOOB1, &h00B2 
59614 DATA &h00B3, &h00B^4, &hOO0B5, &h00B6, &h00B7, &h00B8 
59615 DATA &h00B9, &h001B, &h0015, &h0016, &h0036, &h002F 
59616 DATA &h003D, &h0080, &h0081, &h0082, &h0083, &h0084 
59617 DATA &h0085, &h0086, &h0087, &h0088, &h0089, &h008A 
59618 DATA &h008B, &h008C, &h008D, &h008E, &h008F, &h0090 
59619 DATA &h0091, &h0092, &h0093, &h009^4, &h0095, &h0096 
59620 DATA &h0097, &h0098, &h0099, &h000F, &h0017, &h000E 
59621 DATA &h003B, &h0000, &h0000, &h0000, &h0000, &h0000 
59622 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 
59623 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 
59625 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 
59625 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 
59626 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 
59627 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 
59628 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 
59629 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 
59630 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 
59631 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 
59632 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 
59633 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 
59634 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 
59635 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 
59636 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 
59637 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 
59638 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 
59639 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 
59640 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 
59641 DATA &h0000, &h0000, &h0000, &h0000, &h0000, &h0000 
59642 DATA &h0000, &h0000, &h0000, &h0000 

59700 DATA &h0020, &h0020, &h0020, &h0020, &h0020, &h0020 : 'xXEBCDIC 
59701 DATA &h0020, &h0020, &h003E, &h003C, &h005B, &h005D 
59702 DATA &h0029, &h0028, &h007D, &h007B, &h0020, &h003D 
59703 DATA &h0027, &h0022, &h002F, &h005C, &h005D, &h007C 
59704 DATA &h003F, &h0021, &h0024, &h005B, &h006C, &h0079 
59705 DATA &h0070, &h006F, &h0030, &h0031, &h0032, &h0033 
59706 DATA &h0034, &h0035, &h0036, &h0037, &h0038, &h0039 
59707 DATA &h0062, &h0073, &h0023, &h0040, &h0025, &h005F 
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59708 
59709 
59710 
59711 
59712 
59713 
59714 
59715 
59716 
59717 
59718 
59719 
59720 
59721 
59722 
59723 
59724 
59725 
59726 
59727 
59728 
59729 
59730 
59731 
59732 
59733 
59734 
59735 
59736 
59737 
59738 
59739 
59740 
59741 
59742 
59800 
59801 
59802 
59803 
59804 
59805 
59806 
59807 
59808 
59809 
59810 
59811 
59812 
59813 
59814 
59815 
59816 
59817 
59818 
59819 
59820 
59821 
59822 
59823 
59824 
59825 
59826 
59827 
59828 
59829 
59830 
59831 
59832 
59833 
59834 
59835 
59836 
59837 
59838 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


&h0026, 
&h005E, 
&h0022, 
&h0069, 
&h0061, 
&h0075, 
&h0075, 
&h0065, 
&h0041, 
&h004F, 
&h004F, 
&h0049, 
&h004F, 
&h0055, 
&h0065, 
&h006B, 
&h0071, 
&h0077, 
&h0061, 
&h0043, 
&h0049, 
&h004F, 
&h0055, 
&h0041, 
&h0020, 
&h0020, 
&h0020, 
&h0041, 
&h001A, 
&h00A8, 
&h0020, 
&h0020, 
&h0015, 
&h0058, 
&h0034, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0739, 
&h0B39, 
&h0D00, 
&h0900, 
&h3A00, 
&h3EF39, 
&heD39, 
&h4039, 
&h1A39, 
&h3B39, 
&h0300, 
&heB00, 
&h3000, 
&h1900, 
&h3C00, 
&h0339, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 


&h002D, 
&h005F, 
&h0060, 
&h006F , 
&h0065, 
&h0063, 
&h0061, 
&h0069, 
&h0045, 
&h0059, 
&h0055, 
&h004F, 
&h0055, 
&h004E, 
&h0066, 
&h006C, 
&h0072, 
&h0078, 
&h0063, 
&h0044, 
&h004A, 
&h0050, 
&h005ó, 
&h004F, 
&h0020, 
&h0020, 
&h0020, 
&h001E, 
&h00ES9, 
&h00DB, 
&h0020, 
&h0020, 
&h0017, 
&h0016, 
&h0041, 
&h0000, 
&h0000, 
&h4C00, 
&h0000, 
&h0000, 
&h0000, 
&h0839, 
&hOF39, 
&h0400, 
&h0A00, 
&h0F00, 
&h3D39, 
&h1D39, 
&h1E39, 
&h1C39, 
&h0439, 
&h2800, 
&h2C00, 
&h4100, 
&h2900, 
&h1B00, 
&h1000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 


&h002E, 
&h002E, 
&h0027, 
&h0075, 
&h0065, 
&h0061, 
&h006F , 
&h006F, 
&h0049, 
&h0041, 
&h0059, 
&h0055, 
&h0041, 
&h0061, 
&h0067, 
&h006D, 
&h0073, 
&h0079, 
&h003B, 
&h0045, 
&h004B, 
&h0051, 
&h0057, 
&h0041, 
&h0020, 
&h0020, 
&h0020, 
&h0042, 
&h0006, 
&h0020, 
&h0020, 
&h0020, 
&h005A, 
&h001B, 
&h00E9, 
&h0000, 
&h1000, 
&h0000, 
&h0000, 
&h0000, 
&h4A00, 
&h0A39, 
&h4200, 
&h0500, 
&h0B00, 
&h3A39, 
&heA39, 
&h2E39, 
&h1F39, 
&h3E39 , 
&h2100, 
&h3F00, 
&h2D00, 
&h^4000, 
&h1A00, 
&h3B00, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 


&h002C, 
&h0020, 
&h0035, 
&h0061, 
&h0069, 
&h0065, 
&h0079, 
&h0075, 
&h004F, 
&h0045, 
&h0043, 
&h0041, 
&h0045, 
&h0062, 
&h0068, 
&hOOGE, 
&h0075, 
&h007A, 
&h002A, 
&h0046, 
&h004C, 
&h0052, 
&h0058, 
&h0043, 
&h0020, 
&h0020, 
&h0020, 
&h0036, 
&h0001, 
&h0020, 
&h0020, 
&h0020, 
&h005F, 
&h0025, 
&h0002 

&h0000, 
&h1500, 
&h0000, 
&h0000, 
&h0000, 
&h2039, 
&h3200, 
&h0E00, 
&h0600, 
&h0CO00, 
&h4439, 
&h1839, 
&h2F39, 
&h1639, 
&h1739, 
&h2000, 
&h3D00, 
&h1D00, 
&h1E00, 
&h1C00, 
&h3300, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 


&h003A, 
&h005E, 
&h0061, 
&h006F, 
&h00óF , 
&h0069, 
&h0061, 
&h0075, 
&h0055, 
&h0045, 
&h0041, 
&h0045, 
&h0049, 
&h0063, 
&h0069, 
&h006F, 
&h0075, 
&h0061, 
&h0051, 
&h0047, 
&h004D, 
&h0053, 
&h0059, 
&h003B, 
&h0020, 
&h0020, 
&h0050, 
&h0010, 
&h0042, 
&h0020, 
&h0020, 
&h0020, 
&h0009, 
&hOOFB, 


&h0000, 
&h3400, 
&h0000, 
&h0000, 
&h0000, 
&h3239, 
&h0C39, 
&h4300, 
&h0700, 
&h3139, 
&h0539, 
&h2B39 , 
&h3039, 
&h1939, 
&h3C39, 
&h0939, 
&h2A00, 
&h2E00, 
&h1F00, 
&h3E00, 
&h2139, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 


&h002B 
&h007E 
&h0065 
&h0079 
&h0075 
&hO006F 
&h0065 
&h0063 
&h0041 
&h0049 
&h0045 
&h0049 
&h004F 
&h0064 
&h006A 
&h0070 
&h0076 
&h006F 
&h0042 
&h0048 
&h004E 
&h0054 
&h005A 
&h002A 
&h0020 
&h0020 
&h0053 
&h0016 
&h0003 
&h0020 
&h0020 
&h0020 
&h000A 
&h00B7 


&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0639 
&h0D39 
&h4400 
&h0800 
&h3100 
&h2839 
&h2eC39 
&h4139 
&h2939 
&h1B39 
&h0E39 
&h1800 
&h2F00 
&h1600 
&h1700 
&h3339 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 


’ ¥KEYCODE 
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59839 
59840 
59841 
59842 
59843 
59844 
59845 
59846 
59847 
59848 
59849 
59850 
59851 
59852 
59853 
59854 
59855 
59856 
59857 
59858 
59859 
59860 
59861 
59862 
59863 
59864 
59865 
59866 
59867 
59868 
59869 
59870 
59871 
59872 
59873 
59874 
59875 
59876 
59877 
59878 
59879 
59880 
59681 
59882 
59883 
59884 
59885 
59890 
59900 
59901 
59902 
59903 
59904 
59905 
59906 
59907 
59908 
59909 
59910 
59911 
59912 
59913 
59914 
59915 
59916 
59917 
59918 
59919 
59920 
59921 
59922 
59923 
59924 
59925 
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&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h5100, 
&h0000, 
&h^465B, 
&h234B, 
&h3BAB, 
&h414B, 
&h0000, 
&h154B, 
&h4800, 
&h0000, 
&h3600, 
&h0000, 
&h0000, 
&h0000, 
&h014B, 
&h375B, 
&h474B, 
&h064B, 
&hOCAB, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&HOG00 
&h0050, 
&h0024, 
&h0020, 
&h0052, 
&h0071, 
&h00ó6F , 
&h0054, 
&h0065, 
&hOO7E, 
&h0056, 
&h0062, 
&h0032, 
&h0034, 
&h0042, 
&h0048, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 


&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&he200, 
&h5200, 
&h0000, 
&h^475B, 
&h0000, 
&h3C4B, 
&h0000, 
&h0000, 
&heb500, 
&h0000, 
&h^4600, 
&h3900, 
&h0000, 
&h0000, 
&h0000, 
&h0200, 
&h384B, 
&h0000, 
&hO74B, 
&hODAB , 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000 


&h0051, 
&h0025, 
&h0030, 
&h0053, 
&h0073, 
&h001B, 
&h0055, 
&h0066, 
&h0012, 
&h0057, 
&h0075, 
&h0014, 
&h0010, 
&h0043, 
&h0049, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 


&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h4D00, 
&h5300, 
&h0000, 
&h1100, 
&h0000, 
&h3D4B, 
&h0000, 
&h0000, 
&h2600, 
&h0000, 
&h0000, 
&h2300, 
&h0000, 
&h0000, 
&h0000, 
&h134B, 
&h0000, 
&h0000, 
&h084B, 
&h0E4B, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 


&h003D, 
&h0026, 
&h0011, 
&h0036, 
&h0078, 
&h0015, 
&h00CC, 
&h0067 , 
&h000F, 
&h00CD, 
&h0061, 
&hOO0CE, 
&hHOOCF , 
&h0044, 
&h004A, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 


&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h4E00, 
&h5400, 
&h0000, 
&h1200, 
&h0000, 
&h3EAB, 
&h0000, 
&h0100, 
&h3700, 
&h224B, 
&h4700, 
&h2400, 
&h0000, 
&h0000, 
&h0000, 
&h1400, 
&h^485B, 
&h5900, 
&h094B, 
&hOFAB, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 


&h0021, 
&h0027, 
&h0031, 
&h0070, 
&h0074, 
&h0035, 
&h0060, 
&h0069, 
&h0008, 
&h0009, 
&h006D, 
&h0016, 
&h0018, 
&h0045, 
&h004B, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 


&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h^4F00, 
&h5500, 
&h5700, 
&h1154B, 
&h0000, 
&h3F4B, 
&h0000, 
&h024B, 
&h3800, 
&h3500, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h254B, 
&h0000, 
&h044B, 
&hOAAB, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 


&h0022, 
&h0028, 
&h005F, 
&h0076, 
&h0068, 
&h000C, 
&h0072, 
&h006A, 
&h000E, 
&h0079, 
&h006C, 
&h001A, 
&h0040, 
&h004^6, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 


&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h5000 
&h5600 
&h5800 
&h124B 
&h0000 
&h4 04B 
&h0000 
&h1300 
&h3400 
&h2700 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h264B 
&h464B 
&h054B 
&hOB4B 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 


&h0023 
&h0029 
&h005E 
&h0065 
&h00óE 
&h000D 
&h0063 
&h0 06B 
&h0013 
&h0077 
&h0033 
&h0034 
&h0041 
&h0047 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 


' *SCANCODE 


pu. 


59926 
59927 
59928 
59929 
59930 
59931 
59932 
59933 
59934 
59935 
59936 
59937 
59938 
59939 
59940 
59941 
59942 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


&h0000, &h0000, &h0000, 
&h0000, &h0000, &h0000, 
&h0000, &h0000, &h0000, 
&h0000, &h0000, &h0000, 
&h0000, &h0000, &h0000, 
&h0000, &h0000, &h0000, 
&h0000, &h0000, &h0000, 
&h0000, &h0000, &h0000, 
&h0000, &h0000, &h0000, 
&h0000, &h0000, &h0000, 
&h0000, &h0000, &h0000, 
&h0000, &h0000, &h0000, 
&h0000, &h0000, &h0000, 
&h0000, &h0000, &h0000, 
&h0000, &h0000, &h0000, 
&h0000, &h0000, &h0000, 
&h0000, &h0000, &h0000 


100 DIM I.TAB*(1279],I.BUF€1 1920] 
102 GOSUB 50000 

REM Initialize IRMA interface variables 
RESTORE 50036 


50000 
50002 
50004 
50006 
50008 
50010 
50012 
50014 
50016 
50018 
50020 
50022 
50024 
50026 
50028 
50030 
50032 
50034 
50036 
50038 
50040 
50042 
50044 
50046 
50048 
50050 
50052 
50058 
50060 
50062 
50100 
50102 
50104 
50106 
50108 
50200 
50202 
50204 
50206 
50208 
50210 
50212 
50300 
50302 


READ 
READ 
READ 
HEAD 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


1.CRD¥,1.CWRE,1.CACK, I. 
1.CSP%,1.CXP%,1.CMD%,1. 
.MAX%, I.MTG%, I.MKY%, I. 
.MCC%, I.MDI®, I.MCM% 
.MXX%, I. MPOS, I. MALE, I. 
.MRCE,1.MBC*,1.MCK$ 
.RGOt,I.RG1*,1.RG24,1. 
-RST%&,1.RAK%,1.RAFS 
-MAT%,1.MBS4& 

- VERS, 1.VST%,1.VRO%,I. 
- VVLS, I.VEGt,I.VST$,I. 
.VT1$*,I.VT24,1.VT3$, I. 
. VAX*,1.V82$,1.V893$,1I. 
.V86$,1.V87$,1.V8S8$,1. 
.VT5*, I. VCB% ,I.VCE%, I. 
. VOOT, I. VRRE, I. VFSt, I. 
0,1,2,3,5,5,6,7,8,9 
128 ,64,32,16,8,4,2,1 
128 ,64,32,16,8,4,2,1 
&H220,&H221,&H222,&H223 
&H226 ,&H22" , &H227 
128 , 64 


&h0000, &h0000, 
&h0000, 
&h0000, &h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 


&h0000, 


&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 
&h0000, 


CCL%,1. 
CTA*,I. 
MXX%, I. 


MDDft,1. 
RG3% 


VCL%, 1. 
VFL&,1. 
VSO$,1. 
VS4$,1. 
VS9$,1. 
VT8%,1. 
VTO% 


CKY$ 
CIM% 
MPR% 


MCI& 


VMS% 
VTO% 
vS1$ 
VS5$ 
VTA4$ 
VTO% 


0,0,0,0,0,0,0,"",0,0,0,0,0, "" ,n« 


nu on 


p uo j j 
0,0,0,0,0,0,0,0,5 


nu wa "nn nu 
D / PEN 


DEF SEG 
BLOAD " JIRMATABS.OVR" , VARPTRI1. TABKIO)) 
RETURN 

REM Power on reset simulation 
1.VER&=0 

OUT I.RG0O*,1.CXP4 

GOSUB 58000 

RETURN 

REM Get slave status 

I.VER$z0 

OUT I.RG0€*,I.CAC€ 

GOSUB 58000 
I.VAX*-INP(I.RG354) 
I.VST*-INPULI.RGO£€) 

RETURN 

REM Reset slave status bits 
I. VER&=0 


hed 


&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 


'*Dimension IRMA’s tables 
'*Initialize IRMA's variables 
’ IINIT - IRMASUBS Rev 1.05 

' Point to initial values 
Load command numbers 


Li 
Main status masks 
Aux status masks 


Communication registers 


Handshake masks 
General variables 


'*XPOR ( 


, 


I.VER&® } 

Reset error flag 

Set commmand in place 
Start & wait for slave 


" 


4 


^*GSTAT | I.VST&, I.VER3$ } 
Reset error flag 

Get aux status & cursor 
Start & wait for slave 
Get aux 

Get main 

Exit! 

¥RSTAT | I.VSTS&, 
Reset error flag 


I.VER?* ) 


4 
D 
, 
" 
" 
, 
d 
, 
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50304 OUI 1.RG0%,1.CCLE 

50306 OUT I.HG3*,1.VST$* 

50308 GOSUB 58000 

50310 HETURN 

50400 REM Set trigger event & address 

50401 1.VER€$-0 

50402 GOSUB 58200 

50403 IF 1.VER€«»0 THEN RETURN 

50404 OUT 1.RGO%,1.CTAS 

50406 I.VTOR-(T.VCL*-1)«( I. VROS«80) 

50408 OUT I.RG2*,1.VTO**N&H100 

50410 OUT I.RG1*,1.VTO* AND &HFF 

50411 GOSUB 58000 

50412 IF t(I.VVL* OR I.VMS* ) AND &HFF00)1«»0 THE 
50417 IF I.VER$*«»0 THEN RETURN 

50418 OUT I.RG0€*,1.CMDf* 

50419 OUT I.RG1*,1.VVL$ 

50420 OUT I.RG2%,1.VMS% 

50422 GOSUB 58000 

50424 RETURN 

50500 REM Wait for trigger event 

b0502 I.VER$€-0 

50504 1.V850$-TIMES$ 

50506 IF IINP( I. RG0$) AND I.MTG%)¢20 THEN RETURN 
50508 I.VER$z10 Potential timeout. 
50510 IF I.VTO*«0 THEN RETURN Time has run out. 


' Clear status command 

+ 

+ 

N 

L 
50512 IF 1.VSO$=TIME$ THEN 50502 ’ Still time, try again 

+ 

+ 

+ 

+ 


Status bits to clear 
Start & wait for slave 
Exit! 

*STDNM ( 1.VRO%$, 1.VCL$ ! 

1.VMS*, I.VVL$ 
Check row and column values 
Error if bad input 
I.VERf ) 

Compute address 

High part of address 

Low part of address 
Start slave 

I.VER$-4 : RETURN ’ Bad byte 
Give up if dead slave 
Setup mask & data 

Data 

Mask 

Set trigger. 

Exit! 
¥WTRIG ( I.VTO*, I.VERT* ) 
Reset error flag 

Set the stopwatch 

All done! 


50514 I.VTO*-1.VTO€t-1 Drop a grain of sand. 
50516 GOTO 50502 Do it some more. 

50600 REM Send keystrokes from 1.VSI$ ¥KEYS ( 1.VST$, I.VER® J) 
50602 I.VER%=0 Reset error flag 

50604 I.VIPO#=LEN(I.VST$) Count of remaining chars 
50606 1.VT1*-1 Current pointer 

50608 WHILE I.VT0%)0 Only until none remain... 
50610 I.VT2*-zASC(MIDS$U T. V8T$, 1. VT1*,11) Get character value 
50612 IF I.VT2*50 THEN 50620 Not an extended code... 


50614 I.VTOR&-I.VTOS$-1 : I.VT1%=I.VT1%+1 Get set to eat next char 
50616 IF I.VTO$&«1 THEN 50658 EXIT if partial char 
50618 1.VT2*$-ASCIMID$CTI.VST$,I.VT1$,1))4256 Offset into extended table 


50620 I.VT2*-I.TAB*( I. VT2*«&H200) 
50622 IF (I.VT2* AND &HFF)-0 THEN 50634 


Look up key codes 
Skip shift key 


50624 I.VI3*-I.TABS( LI. VT2€*$ AND &HFFJ+&H400)' Get scan code of shift 
50626 1.VT3*-I.VT3* AND &H7F Strip up/dn control bit 
50628 GOSUB 58100 Transmit scan code 

50630 IF 1.VER%=0 THEN 50634 Skip error exit 

50632 I.Vf0$--1 : GOTO 50658 Error on key attempt ABORT! 
50634 IF tI. VT2$ AND &HFF00)-0 THEN 50644 Handle possible lone shift 
50636 L.VIP3%=1. TABS( 1 1. VI2$N&H100)4&H4001 Get scan code 

50638 GOSUB 58100 Transmit it. 

50640 IF I.VER$-0 THEN 50644 Skip error exit 

50642 I.VTO$--1 : GOTO 50658 PUNT. 

50644 IF €1.VT2% AND &HFF)=0 THEN 50654 Skip shift key 

50646 I.VT3*-I.TABSUUL I. VI2€$ AND &HEF)4&H400])^ Get scan code of shift 
50658 GOSUB 58100 Transmit scan code 

50650 IF I.VER*-0 THEN 50654 Skip error exit 

50652 I.VTO€&--1 : GOTO 50658 Error on key attempt ABORT! 


One less character to send 
Point to next character 
Do until done or error 


50654 I.VTO*-I.VTO€-1 
50656 I.VT1*-I.VT1$*«1 
50658 WEND 

50660 RETURN 

50700 REM Find field 1.VFL% 
50702 1.VER&=0 I. 
50703 1F (I.VFL€$«1) OR (1.VFL%91920) THEN I.VER$-7 : RETURN 
50704 1.VCE%=80 : I.VCB%=80 1, BUF &( 0.)=8&HCO ' Start at upper left 
50706 OUT 1.RG0%,1.CRD%& Preset the read command 
50708 JF I.VFL$-1 THEN 50738 Default screen condition 
50710 1.VT1%=1 Current field number 


'&*FIND ( I.VFL%, I.VCL* 1) 
: VRO#, I.VER* ) 


50712 OUT I.hRG1*,1.VCE€* AND &HFF ' Low order address 
50714 OUT 1.RG2%,1.VCE%\8&H100 ^ High order address 
50716 GOSUB 58000 ^ Start slave & wait 
50718 IF I.VER*«»0 THEN RETURN ^ PUNT if read error. 
50720 1.VT2€*$-INPLI.RG39€) ' Get data 

50722 IF I.VT2*$«&HCO0 THEN 50730 ' Skip if not attribute 
50724 IF (1.Vfe% AND &H201»0 THEN 50730 ? Skip if protected 
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à 


50725 
50726 
50727 
50728 
50730 
50732 
50734 
50736 
50738 
50740 
50742 
50744 
50746 
50748 
50750 
50752 
50754 
50756 
50758 
50760 
50762 
50764 
50800 
50801 
50802 
50804 
50806 
50808 
50810 
50812 
50814 
50816 
50820 
50822 
50830 
50900 
50902 
50904 
50906 
50908 
50910 
50912 
50914 
50916 
50918 
50920 
50922 
50924 
50926 
50930 
50934 
50936 
50938 
50940 
50942 
50946 
50948 
50950 
50952 
50960 
50962 


-50970 


50972 
51000 
51002 
51004 
51006 
51008 
51010 
51012 
51014 
51016 
51018 
51020 


I. VCB&=1.VCE% 
I.VT1$-I.VT1€4s1 
1.BUFS(0)=1.VT2% 
IF 1.VT1*-I.VFL* THEN 50736 
1. VCE%=1.VCE%+1 
IF 1.VCE%>)=2000 THEN I.VER$-7 
GOTO 50712 
I. VCE%=1.VCE#+4 
IF 1.VCE%)=2000 THEN 1.VER&=7 
I. VRO#=1 . VCE%\80 
1.VCL*-l1.VCE* MOD 80)41 
1.VF5€t-0 
OUT I.RG1*,1.VCE* AND &HEF 
OUT I.HG2€*,1.VCE$N&H100 
GOSUB 58000 
IF I.VERS«»0 THEN RETURN 
1.VT2%=INP(1.RG3%) 
IF 1.VT2%)=&HCO THEN RETURN 
1.VFS*-1.VFSt*«1 
I.VCE*-I.VCEt«1 
IF 1.VCE€$»-2000 THEN RETURN 
GOTO 50746 
REM Find NEXT field I.VFL&41 
I.VER&%=0 
1.VT1*-I.VFL* : 1.VFL&=1.VFL&+1 
IF I.VCE*«80 THEN I.VER$-11 RETURN 
IF I.VCE*»2-2000 THEN 1.VER$-7 RETURN 
OUT 1.RG0%,1.CRD% 
OUT I.RG1$*,1.VCE* AND &HFF 
OUT I.RG2€*,1.VCES$N&H100 
GOSUB 58000 
IF I.VERX»0 THEN RETURN 
I.VT9*-INPLI.RG3€) 
IF I.VT9*«&HCO THEN I.VER$€-11 
GOTO 50712 
REM Read field 
1. VER&=0 I.VTe%=0 
IF 1.VCB%=80 THEN 50924 
IF 1.VCB*«80 THEN I.VER%=11 
IF 1.VCB%)=2000 THEN I.VER%=11 
OUT I.RGO#,1.CRD% 
OUT 1.RG1%,1.VCB% AND &HFF 
OUT I.RG2%,1.VCB%\&H100 
GOSUB 58000 
1.VT3$zINP(I.RG34) 


RETURN 


RETURN 


RETURN 


IF (1.VT3* AND &HE01«»&HCO THEN 1. VER%=5 


GOTO 50930 
1.VT2*-1 
I.BUF*I0 )-2&HCO 
OUT 1.RGO%,1.CRDY 
WHILE I.VT2t«-1.VFS$ 
1.VT9*-1.VT2*4 I.VCBt 
IF I.VT9%>=2000 THEN 1. VER%=11 
OUT I.RG4%,1.VT9% AND &HFF 
OUT I.RG?€*,T.VTO€*N&H100 
GOSUB 58000 
JF I.VER*-0 THEN 50960 
I.VTe$*-9999 
GOTO 50970 


Save start position 
We've found the next field! 
Init buffer attribute 
Exit the search loop 

Try next location 
Field not found anywhere! 
Read the next character 
Point to first char of field 
Field at last col/row 
Make the row number 
And column number 

Length of field 

Low order address 
High order address 
Start read operation 
Quit if slave is dead 
Get data 
Next attribute found 

Count the chars in field 
Point to next char 

Ran off end of screen! 
Continue eating chars 
'*FNEXT ( I.VFL$, I.VCL$,) 

(. I. VROS, I.VER$ ) 

Next field 

Illegal cursor value 

No next field. 

Set read command in place 
Low order address 

High order address 

Get data at current position 
Give up if slave dead 

This should be attribute 
Invalid cursor position 
Enter general FIND code 
*RDFLD ( I.VER* )I.VCL$,) 
Reset error flag & buffer ptr 
Special case of upper corner 
Invalid start address 
Beyond end of screen 

Set read command 

Low order address 

High order address 

Read the leading attribute 
Data word 

HETURN ' Bad field type 
Scan and eat field 
increment buffer pointer 
Fake attribute 

Setup the read command 
Until out of characters 
Offset to character 


ser Ri Se RS im UNO UE SR Rs OS ce CS UAR UE es Rs e RE 


" 
I 
" 
I 
+ 
+ 
+ 
+ 
t 
+ 
+ 
" 
" 
, 
" 
, 
" 
/ 
E 
" 
" 
+ 


t 


GOTO 50950 ' bad field specs 


' Set low address 


High address 
^ Xecute read operation 
^ Abort if slave dead 
' Exit loop 


" 


1. BUF ¥( I. VT2% )=CVI(CHRS$( INPI 1.RG3%))+CHR$( INP(1.RG2%)) ) 


I.VT2*-I.VT2*41 
WEND 
RETURN 
REM Write field 
L.VER%=0 
JF I.VCB*«80 THEN 1.VER®=11 
IF 1.VCB%>=2000 THEN I.VER€-11 
JF 1.VCB%+1.VT1%>2000 THEN 1. VER%=12 
IF I.VER*«»0 THEN RETURN 
OUT I.RGO*,1.CRD$ 
OUT 1.RG1%,1.VCB% AND &HFF 
OUT 1.RG2%,1.VCB%4\8&H100 
GOSUB 58000 
IF I. VER*(20 THEN RETURN 


' Point to next location 


' All done 

"*WRFLD (. I. VER? )1.VCL$, ) 
^ Heset error flag 

lllegal address 

Too large 

Field too long for screen 
Quit if bad parameters 
Read attribute from screen 
Low address f 
High address 

Xecute! 

No good news! 


+ 


C-25 


51022 
51024 
51026 
51028 
51030 
51032 
51034 
51036 
51038 
51039 
51040 
51042 
51048 
51050 
51052 
51054 
51056 
51058 
51060 
51062 
51064 
51066 
51068 
51070 
51072 
51074 
51100 
51105 
51108 
51110 
51112 
51114 
51116 
51118 
51120 
51122 
51126 
51200 
51202 
51204 
51206 
51208 
51210 
51212 
51214 
51216 
51218 
51220 
51300 
51302 
51304 
51306 
51308 
51310 
51312 
51314 
51316 
51318 
51320 
51322 
51324 
51326 
51328 
51340 
51342 
51344 
51400 
51402 
51406 
51408 
51410 
51411 
51412 
51414 
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IF CINPUI. RG3$). AND &HFE)<)(1.BUF%(0) AND SHEE) THEN I.VER$-13 : RETURN 


I.BUF*LO)zI.BUFRLO) OR 1 
1.VT2%=0 
IF (1.BUF%(0) AND &H10)=0 THEN 51052 
1.VT2*-1 
WHILE I.VT2$«-I.VT1* 
1.VTO*-I.BUF*(U I.VT2*) AND &HFF 


IF 1.VT0€45-&H20 THEN IF I.VTO*«-&H29 T 


IF I.VTO*-&H31 THEN 51048 
IF I.VT0*-&H32 THEN 51048 
IF 1.VTOR-&H35 THEN 51048 


I.VER$zó : I.VT2$*-9999 
I.VT2t*-1.V12*«1 
WEND 
I.VT2$-0 


OUT 1.RGO%,1.CWRE 


Set the MDT flag 
' First byte of buffer to write 
' Check for numeric only 
' First buffer location to chk 
' Do until all chars done 
' Mask off any previous EAB 
HEN 51048 ' 0-9 is Ok 
Minus Ok 
Period Ok 
Plus Ok 
"Non-numeric" char 
Next character 
Loop 
Start from the beginning 
Set write command 


4 
+ 

WHILE I.VT2$*«-I.VFS* '^ Until all characters written 

1.VTORzI.VCBR«1.VT2$ ' Compute address 

OUT I.RG1€,1.VT0* AND &HFF ' Low address 

OUT I.RG2€*,1.VTO$N&H100 ' High address 

OUT 1.RG3%,1.BUF8(1.VT2%) AND &HFF ' Data w/o EAB 

GOSUB 58000 ' Make slave do it. 

IF I. VER$ox0 THEN I.VT2%=9999 ’ Force exit if slave DOA 

I.VT2%=1.VT2%+1 ' Next location to write 
WEND ^ Do it again 
RETURN ^ All done! 
REM Get string from buffer '*GSTRU 1.VST$, I.VT1% 
1.VER$-0 : I.VT2$*-0 f 1.VTOt ) 
IF 1.VO04»1920 THEN I.VER%=12 : RETURN ' Offset too large 
IF I.VOO*$«0 THEN I.VER$-12 : RETURN ’ Offset negative 
{.vST$="" ’ Clear string 
WHILE (I.VOO€«-I.VFS*) AND (1.VT2k=0) d 

I.VST$-1.VST$4CHR$( I. TABR(LULI. BUFS(1. VOO*) AND &HFF34«&H1001] 

I. VOO%=1.VOO%+1 ' Point to next char 

IF LENI 1. V8T$)-254 THEN I.VT2€z1 ? Overrun 
WEND 
RETURN 
REM Put string in buffer "¥PSTR( I.VST$, I.VT1% 
1.VER%=0 , 1I.VTO* ) 
IF 1.VOO#+LEN(1.VST$)-1>1.VFS% THEN I.VER&=12 : RETURN ’ Too long 
I.VT3*$-LENLI.VST$) : IF I.VT3*-0 THEN RETURN ’ Zero strings easy! 
1.VT2*-0 ^ Offset into buffer 
WHILE I.VT2$*«I.VT3€* ’ While still characters 

1.BUF$LI.VOO*421.VT2* )2- I. TABRECLASCIMIDSCI.VSTS$,I.VT21*$21,1) )$9&HO ) 

I.VTe$-1.VT2*«1 ^ Move pointer 
WEND 
1.VOOt-1.VOO*41.VT2f ' Pointer for next 
RETURN ' fransfer complete 
REM Read screen absolute 'KABSRD ( I.VER&, I.VST$, 
I.VER£€-0 i 1.V80$, I.VHOS*, 
I.VTORS-I.VRO*x80«1.VCL$t-1 i I.VCL*, I.VRR$ J 
IF I. VTO$&«0 THEN I.VER#=11 : RETURN ' Invalid cursor address 
IF 1.VT0%)=2000 THEN I.VER%=11 : RETURN i 
IF I.VTO%+I1.VRR%)2000 THEN 1.VER%=12 RETURN ' Can't read that much 
I.VT1*-0 : I.VST$-"" ; I.VS0$-"" Offset from start 
OUT I.RGO%,1.CRD® : I.VT2*-I.VTO*«I.VRRf Set a read commnad 


WHILE I.VTOS«I.VT2$ 
OUT I.RG1*,1.VTO* AND &HFF 
OUT I.RG2*,1.VTO*N&H100 
GOSUB 58000 
IF I.VER*$«0»0 THEN I.VT0%=9999 


Until all characters read 
Low order address 

High order address 
Execute read operation 
Force loop exit 


D 
, 
, 
" 
+ 


" 


I.VST$=1.VST$+CHR$( 1. TABRSUINPUI.RG3€$)4&H1001]) ' Get char & convert 


I.VS0$=1.VS0$+CHR$( INPCI.RG2*)) 
l.VTORzI.VTO*«1 

WEND 

RETURN 

REM Read 3278 cursor position 

1. VER#=0 

OUT I1.RGO%,1.CAC% 

GOSUB 58000 

1.VTO%=( INP(1.RG2% )*&H100)4+INP(I.RG1%) 

IF I.VER*$«»0 THEN RETURN 

1. VRO#=1.VTO#\80 

I.VCL&=(1.VT0& MOD 80)41 


^ Unmodified EAB 
' Next character 


xCPOS( I.VRO¥, I.VCL$, 
I. VER% ) 

Status & cursor read 

Start the slave 

Get absolute address 

Dead slave, quit action 

Compute row 


+ 
Li 
t 
, 
Li 
4 
i 
' And column 


51416 RETURN 

51500 REM Read absolute memory position 'kRead memory 

51502 OUT 1.RG0%,I.CRDS ^ Set read command 
51504 OUT I.RG1%,1.VOO% AND &HFF ' Low address 

51506 OUT I.RG2€*,1I.VOO$S&H100 ^ High address 

51508 GOSUB 58000 ^ Start & wait for s?) L 
51520 IF I.VER$«»0 THEN RETURN ' No good news! 

51522 1.VVL*-INP(I.RG3t) ' Get the data 

51524 RETURN ' And egzit! 

58000 REM Start & wait for slave'!Start & wait for slave 

58002 1.VS9$-TIME$ : 1. V19%=0 ^ A simulated stopwatch 
58004 OUT I.RST€$,0 ^ Start the slave 

58006 1.VT8* = INPI I.RAF* ) AND I.MBS% ' Get slave busy bit 
58008 IF 1.VT8* = 0 THEN RETURN ^ Return with command complete 
58010 IF I.VS9$=TIME$ THEN 58006 ' Loop until clock ticks 
58012 I.VS9$-TIME$ : I.VT9€4-1.VT9$441 ' Three times 

58014 IF I.VT9$*«3 THEN 58006 : 

58016 I.VER$z1 ^ Slave timeout 

58018 RETURN J 

58100 REM Send key scan code from I.VT3*$'xSend key scan code 

58102 1.VS9$=TIME$ : I.VT9$€-0 ^ Make stopwatch 

58104 IF (INP(I.RGO*) AND I.MKY€)»0 THEN 58114 ^' Key buffer is ready 
58106 IF 1.VS9$=TIME$ THEN 58104 ^ Loop until clock tick 
58108 I.VT9*-I.VT9€*41 : IF I.VT94«4 THEN 58104 ^ Time has not run out 
58110 I.VER$-9 ^ Keystroke timeout 
58112 RETURN 

58115 IF I.VT3$-0 THEN I.VERE-15 : RETURN ' Invalid scan code 
58115 OUT I.RGO%,1.CKY% ^ Keystroke command 
58116 OUT I.RG3€*,1.VT3€* ’ Scan code 

58118 GOSUB 58000 ' Fire up the slave 
58120 RETURN ^ And we're done! 

58200 REM - Verify Row and Column'XVerify ROW/COL 

58206 IF (1.VRO*«0) OR (I.VROtT224) THEN I.VER$-2 : RETURN 

58208 IF (I.VCL*«1) OR (1. VCL$280) THEN I.VER*-3 : RETURN 

58210 RETURN 

10 CLS : REM IRMASUBS SAMPLES 26 July 83 

20 PRINT "IRMASUBS Programming Guide and Samples - IRMASUBS SAMPLE 1.20" 
22 PRINT 

24 PRINT "This program is intended as a programming and study guide only." 
26 PRINT " Do not attempt to continue execution of this program." 

28 PRINT 


40 PRINT "This program, if executed in interpreted BASICA requires a" 
3e PRINT "specific IBM test screen initially and more than ONF HOUR to" 
34 PRINT "complete execution." 

36 PRINT 

40 END 

50 DEFINT A-Z 

he PRINT “IRMA BASIC SUBROUTINES DEMONSTRATION - IRMASUBS DEMO 1.01 

54 PRINT : PRINT "Initializing IRMASUBS variables & tables 


100 DIM 1. TABS 1279),1.BUF KI 1920) '*Dimension IRMA's tables 

102 GOSUB 50000 '*lnitialize IRMA's variables 
110 PHINT 

200 REM Field Report ^*Field Report 

202 I.VFL€-1 Start with the first field 


204 PRINT "Field Row Column Length Contents" 


210 GOSUB 50700 
212 WHILE 1.VER&=0 


Print field info header 
Print using definition 

Find the first field 

Until no fields found 

Read field contents 

Get string from buffer start 
Read string I.VST$ 


FH$z" HHHH — HH HH HHHH —&" 


GOSUB 50900 
I. VOO%=1 
GOSUB 51100 


SARE Re Se MEC 


I.VST$=LEFTS(1.VST$,40) ^ Limit the length to screen 
PRINT USING FH$;1.VFL%,1.VRO®,1.VCL%&,1.VES%,1.VST$ 
GOSUB 50800 ^ Find next field 


C-27 


848 PRINT "Waiting for an upper case A in row 1, 
850 1.VMS%=255 I.VVL$-160 
852 GOSUB 50400 


WEND 

REM Modify a few fields 
I.VFL$-2 

GOSUB 50700 
I.VST$2"Two" 

1.VOO€*-1 

GOSUB 51200 

GOSUB 51000 

IF I.VER*«»0 THEN PRINT "Error: 
GOSUB 50800 
1.VST$-"Three" 

1. VOO#=4 

GOSUB 51200 


IF I. VES#>LEN(1.VST$) THEN I.VFS%=LEN( 1. VST$ 


GOSUB 51000 
STOP 
REM Display part of the screen 
1.VCL $21 I.VRR$-40 
FOR I.VRO#=1 TO 5 
GOSUB 51300 
PRINT I.VST$ 
NEXT I.VRO% 
REM General status info 
GOSUB 51400 


PRINT "Buffer pointer ROW:";I.VROf*;" 


GOSUB 50200 

GOSUB 900 

REM Send some keystrokes 
1I.VST$-CHR$(ULO)4CHR$( 15 ) 4" AAA" 
GOSUB 50600 
1.VST$-CHR$(9]«"bbb" 
GOSUB 50600 

STOP 

REM Ciear any status 
GOSUB 50200 

GOSUB 900 

GOSUB 50300 

GOSUB 50200 

GOSUB 900 

REM Trigger stuffs 
I.VROf-1 I.VCL$-1 
1.VMS%=0 Ii.VVL%=0 
GOSUB 50400 


", 1. VER% 


'¥Modify field 

' Second screen field 
' Find the first field 
^ A simple string 

’ Beginning of data area 
? Put string in buffer 
^ Write the field 

^ Report possible error 

' Point to next field 

' More nice data 

^ Buffer start 

' Put new string in buffer 
) ' Shorten write length 
' Write the field 


^'*xDisplay 

Column one 

Top five lines 

Read a short line 
Print the line 
Again, with feeling 
*Status info 


Li 
4 
4 
$ 
Li 
4 
^ Read cursor postion 


COLUMN: ";1.VCL4& 


' Get slave status 


Display status 

'*#Keystrokes 

' Back tab character w/ string 
' Send keystrokes 

' Forward tab 

? Send keystrokes 


+ 


'KClear status 

’ Read current status 

'^ Display current status 
^ Clear all set bits 

' Get the status again 

’ Display the new status 
'KTrigger tests 

' Upper left corner 

' Any change is a trigger 
' Set trigger data & addr 


PRINT "Waiting for any change in row 1, column 1" 


WHILE LEN(CINKEY$ )-0 
1.VTO$-2 
GOSUB 50500 
IF I.VTO*«0 THEN PRINT "."; 
PRINT "Trigger! " 
GOTO 842 


1.VST*-64 


WHILE LEN! INKEY$ }=0 
i.VTO$-2 
GOSUB 50500 
IF 1.VTO*«0 THEN PRINT "."; 
PRINT "Trigger! " 
GOTO 872 
WEND 
I. VST#=64 
GOSUB 50300 
END 
REM Display status words 
PRINT 


1.VST* 
1.VST* 
I.VST* 
1.VST* 


AND I .MTG%) 
AND I .MKY%) 
AND I.MPR%) 
AND 1.MCC%) 


THEN PRINT 
THEN PRINT 
THEN PRINT 
THEN PRINT 


GOTO 840 


GOTO 870 


' Until a key is pressed 
' 2 second timeout 


' Wait for trigger event 


Clear trigger bit 


column 1" 

Specific Upper case A 
Set the trigger again 
Until a key is pressed 
2 second timeout 

Wait for trigger event 


t 


Clear trigger bit 


+ 


'I8tatus display 


Aux status change" 
Trigger occurred" 

Key buffer empty" 
Controller issued reset" 
Last command complete" 


CES 


930 IF 
932 IF 
938 
950 IF 
942 IF 
944 [F 
946 IF 
948 IF 
950 IF 
952 IF 
980 RE 
50000 
50002 
50004 
50006 
50008 
50010 
50012 
50014 
50016 
50018 
50020 
50022 
500245 
50026 
50028 
50030 
50032 
50034 
50036 
50038 
50040 
50042 
50044 
50046 
50048 
50050 
60062 
£0058 
50060 
50062 
50100 
50102 
50104 
50106 
50108 
50200 
50202 
50204 
50206 
50208 
50210 
50212 
50300 
50302 
50304 
50306 
50308 
50310 
50400 
50401 
50402 
50403 
50404 
50406 
50408 
50410 
50411 
50412 
50417 
50418 
50419 
50420 
50422 


TURN 


I.VST# 
I.VST$ 
T "Aux 
I.VAXt 
1.VAXt 
I.VAXt 
I.VAX% 
1. VAX% 
I. VAX% 
(1.VAX% 


AND 
AND 
AND 
AND 
AND 
AND 
AND 


AND I.MDIX! 
AND I.MCM$]! 
status word: 


REM initialize 


RESTORE 
.CRD$%, I. 


READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


I 


50036 


1.CSP%, 1 


-MAX%, I 
-MCCE, I 
-MXX% , I 
.MRC*,I. 
.RG0$,I 
-RST$,I 
-MAT&,I 
- VERS, I 
. VVL$,1 
.VT1%, I 
.VAX%, I 
-VS6$,1. 
-VT5%,1. 
1.VOO*,1. 


THEN 
THEN 


.MPO€ ) 
.MAL€) 
. MDDf ) 
-MCI%) 
-MRC% ) 
-MBC4 } 
-MCK4 ) 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


PRINT " 
PRINT " 


PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 


Buffer dirty lmodified)" 
Buffer pointer moved" 


Poll occurred 

Alarm requested" 

Display disabled (Inhibited)" 
Cursor inhibited" 

Reverse video cursor" 
Blinking cursor" 

Keyboard clicker enabled" 


IRMA interface variables 


CWR*,I.CACt,I 


.MTG%, I.MKY%, 1 
.MDI*,1.MCMt 
-MPO%,1.MAL%, I 


MBC% , I . MCK% 


.RG1%, I.RG2%,1 
-RAK$, I. RAF% 
-MBS% 
-VST%,1.VRO%, I 
. VFG%,1.VST$,1 
.VTO*,1.VT3f,1 
.V82$,1.V83$,1 


V37$,1.V58$,1 
VCB% , I. VCE%,1. 
VRR&,1.VFS4%,1. 


0,1,2,3,4,5,6,7,8,9 
128, ót, 32,16,8,4, 2, 1 
128,65,32,16,8,4,2,1 


&H220,&H221,&H222,&H223 


&H226, &H227 ,&H227 
128.64 


0,0,0,0,0,0,0,"" 
0, 


" f 7 " 
i D 


"o nu nn wu" un 
E ' ' L 


0,0,0,0,0,0,0,0,5 


,0,0,0, 


.CCL$,1 
.CXP*,I.CMD£, 1. 


CTA*,I 


-MXX%#, 1 
-MDDS, I 


. RG3$ 


. VCL*,I 
-VFL&, 1 
.V80$,I 
.V84$,1 
.V89$,1 


VT8%, I 
VTO% 


0,0,"", 
ee gp 


DEF SEG 

BLOAD "IRMATABS.OVR" 
RETURN 

REM Power on reset simulation 
1. VER%=0 

OUT I.RGO%,1.CXP% 

GOSUB 58000 

RETURN 

REM Get slave status 

I. VER%=0 

OUT I.RGO%,1.CAC%K 

GOSUB 58000 

I. VAX%#=INP(I.RG3%) 
1.VST*-INP(T.RGOK) 

RETURN 

REM Reset slave status bits 
I.VER$-0 

OUT I.RG0€*,1.CCL€ 

OUT I.RG3€*,1.VSTX 

GOSUB 58000 

RETURN 


REM Set trigger event & address 


I.VER£f-0 

GOSUB 58200 

IF I.VER*«»0 THEN RETURN 

OUT 1.RG0%,1.CTAS 

1.VIOR-LI. VCOLR$-1)40 T. VROTX80] 
OUT I.RG2*,1.VTO*N&H100 

OUT 1.RG1*,1.VTO0* AND &HFF 
GOSUB 58000 

IF (CI. VVL& OR I.VMS£ 
IF I.VER$«»0 THEN RETURN 
OUT 1.RGO%,1.CMD% 

OUT IRGI% T. VVL% 

OUT I.RG2%,1.VMS% 

GOSUB 58000 


.CKY* 
.CIM$ 
MPR% 


.MCI® 


. VMS% 
.VTOf 
.V81$ 
. V85$ 
.VT4$ 
.VT9€ 


; VARPTRET. TABS(LO ) ) 


| AND &HFF00)«»0 THE 


" 


" 


" 
, 
P 


" 


+ 


2 
" 
" 
H 
4 
, 
+ 
? 
, 
Li 
, 
, 
+ 
, 
+ 
" 
+ 
) 
’ 
, 
" 
" 
+ 
" 
4 
" 


|HINIT - IRMASUBS Hev 1.01 
Point to initial values 
Load command numbers 


Main status masks 
Aux status masks 
Communication registers 


Handshake masks 
General variables 


¥XPOR | I.VER?* ) 

Reset error flag 

Set commmand in place 
Start & wait for slave 


*GSTAT ( 1.VST$, 
Heset error flag 
Get aux status & cursor 
Start & wait for slave 
Get aux 
Get main 
Exit! 

*RSTAT ( I.VST$, 
Reset error flag 
Clear status command 
Status bits to clear 
Start & wait for slave 
Exit! 

XSTDNM í 


I.VER* ) 


I.VER* ) 


1.VRO*, I.VCL* ) 
I.VMSf, I.VVL& 
Check row and column values 
Error if bad input 

1 . VER% ) 
Compute address 
High part of address 
Low part of address 
Start slave 
IT. VER$=4 RETURN ' Bad byte 
Give up if dead slave 
Setup mask & data 
Data 
Mask 
Set trigger. 


C-29 


50424 
50500 
50502 
50504 
50506 
50508 
50510 
50512 
50514 
50516 
50600 
50602 
50604 
50606 
50608 
50610 
50612 
50614 
50616 
50618 
50620 
50622 
50624 
50626 
50628 
50630 
50632 
50634 
50636 
50638 
50640 
50642 
50644 
50646 
50648 
50650 
50652 
50654 
50656 
50658 
50660 
50700 
50702 
50703 
50704 
50706 
50708 
50710 
50712 
50714 
50716 
50718 
50720 
50722 
50724 
50725 
50726 
50727 
50728 
50730 
50732 
50734 
50736 
50738 
50740 
50742 
50744 
50746 
50758 
50750 
50752 
50754 
50756 
50758 


C-30 


RETURN 

REM Wait for trigger event 
1. VER&%=0 

I. VSO$S=TIMES 


L 


^x*WTRIG | 


+ 


" 


IF (INPLI.RGOS) AND 1.MTGt)«»0 THEN RETURN’ 


1.VER%=10 
IF I.VTO*«0 THEN RETURN 
IF 1.VS0$-TIME$ THEN 50502 
1.VTO&-I.VTO£t-1 
GOTO 50502 
REM Send keystrokes from 1.VST$ 
I.VER$-0 
I.VTOS-LEN(CI.VSTS$) 
1.VT1$-1 
WHILE I.VTO*»50 
1.VT2€*-ASCIMIDS$ELTI.VSTS,I.VT1R, 11) 
IF 1.VT2$*»0 THEN 50620 
I.VTOR-1.VTOX-1 : 1.VT1%=1.VT1%+1 
JF 1.VTO*«1 THEN 50658 


I.VT2*-ASCIMIDSIL I. V8T$,I.VT1*,11)«4256 


1.VT2*-I.TABSU I. VT2*4&H200) 
IF (I.VT2* AND &HFF)=0 THEN 50634 


I1.VT3*-1. TABSCUI. VT2$ AND &HEF )2&H400) 


I.VT3*-1.VT3* AND &H7F 
GOSUB 58100 
IF J.VER%=0 THEN 50634 
1.VTO*--1 : GOTO 50658 
IF (1.VT2% AND &HFF00)=0 THEN 50644 
I.VT3$*-I. TABS (1. VT2$N&H100) +8H400 ) 
GOSUB 58100 
IF J.VER&=0 THEN 50644 
1.VTO$--1 : GOTO 50658 
IF (1.VT2* AND &HFF}=0 THEN 50654 


I.V1T3%=1. TABSI LT. VT2% AND &HFF )+&H400 } 


GOSUB 58100 
iF I.VER*-0 THEN 50654 
1.VTOR--1 GOTO 50658 
1.VTO%=I.VT0%-1 
1.VTA1*zI.VT1R«1 
WEND 
RETURN 
REM Find field 1.VFL% 
I. VER#=0 


IF (I.VFL$«1) OR (1.VFL%)1920) THEN I.VER%=7 


1.VCE*-80 : I.VCB%=80 
OUT 1.RGO%,1.CRDE 
IF I.VFL*-1 THEN 50738 
I.VT1*-1 
OUT I.RG1%,1.VCE% AND &HFF 
OUT I.RG2*,1.VCE*N&H100 
GOSUB 58000 
JF I.VER$«»0 THEN RETURN 
1.VT2%=1NP{ I .RG3%) 
IF 1.V¥2%<&HCO THEN 50730 
IF (I.VT2* AND &H201»0 THEN 50730 
I.VCB*-I.VCE* 
1.VT1*-1.VT1t*241 
1.BUF*(0)-I.VT?2* 
IF I.VT1*-I.VFL* THEN 50736 
I. VCE&=1.VCE%+4 


1. BUF S( 0 )=&HCO 


IF I.VCE*2-2000 THEN I.VER$-7 RETURN 
GOTO 50712 

1.VCER-I.VCE*41 

IF I.VCEX»-2000 THEN I.VER$-7 RETURN 


1.VRO#&=1.VCE&N\80 
1.VCL&=(1.VCE% MOD 60)+4 
1.VFS%=0 

OUT 1.RG1%,1.VCE% AND &HFF 
OUT I.RG2%, 1. VCE%\8&H100 
GOSUB 58000 

IF 1.VER%<>0 THEN RETURN 

I. VT2%=INP(1.RG3%) 

IF 1.VT2%>=&HCO THEN RETURN 
1.VFS*-1.VFSt*«1 


" 
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" 


, 


La B5 a a 


Exit! 
I.VTO%, I.VER* ) 
Reset error flag 

Set the stopwatch 

All done! 

Potential timeout. 

Time has run out. 

Still time, try again 

Drop a grain of sand. 

Do it some more. 
¥KEYS ( 1.VST$, I.VER* 1)! 
Reset error flag 

Count of remaining chars 
Current pointer 

Only until none remain... 
Get character value 

Not an extended code... 
Get set to eat next char 
EXIT if partial char 
Offset into extended table 
Look up key codes 

Skip shift key 

Get scan code of shift 
Strip up/dn control bit 
Transmit scan code 

Skip error exit 

Error on key attempt ABORT! 
Handle possible lone shift 
Get scan code 

Transmit it. 

Skip error exit 

PUNT. 

Skip shift key 

Get scan code of shift 
Fransmit scan code 

Skip error exit 

Error on key attempt ABORT! 
One less character to send 
Point to next character 

Do until done or error 


XFIND ( I.VFL&, I.VCL$* )) 
1.VRO€*, I.VER$* ) 

RETURN 

Start at upper left 

Preset the read command 

Default screen condition 

Current field number 

Low order address 

High order address 

Start slave & wait 

PUNT if read error. 

Get data 

Skip if not attribute 

Skip if protected 

Save start position 

We've found the next field! 

Init buffer attribute 

Exit the search loop 

Try next location 

Field not found anywhere! 

Read the next character 

Point to first char of field 

Field at last col/row 

Make the row number 

And column number 

Length of field 

Low order address 

High order address 

Start read operation 

Quit if slave is dead 

Get data 

Next attribute found 

Count the chars in field 


50760 
50762 
50764 
50800 
50801 
50802 
50804 
50806 
50808 
50810 
50812 
50814 
50816 
50820 
50822 
50830 
50900 
50902 
50904 
50906 
50908 
50910 
50912 
50914 
50916 
50918 
50920 
50922 
50924 
50926 
50930 
50934 
50936 
50938 
50940 
50942 
50946 
50948 
50950 
50952 
50960 
50962 
50970 
60972 
51000 
51002 
51004 
51006 
51008 
51010 
51012 
51014 
51016 
51018 
51020 
51022 
51024 
51026 
51028 
51030 
51032 
51034 
51036 
51038 
51039 
51040 
51042 
51048 
51050 
51052 
51054 
51056 
51058 
51060 


1. VCE%=1.VCE%+14 

IF 1.VCE%)=2000 THEN RETURN 

GOTO 50746 

REM Find NEXT field 1.VFL&+1 

1. VER&=0 

I.VT1*-I.VFL* : 1. VFL%=1.VFL&+1 

IF I.VCE*«80 THEN I.VER$t-11 RETURN 
IF 1.VCE%>=2000 THEN 1.VER&=7 RETURN 
OUT 1.RGO*,1.CRD$* 

OUT I.RG1*,1.VCE* AND &HFF 
OUT I.RG2*,1.VCE*N&H100 
GOSUB 58000 

IF I.VER*O0 THEN RETURN 
I.VT9*-INPLI.RG3$t) 

IF I.VT9€*«&HCO THEN I.VER&=11 
GOTO 50712 

REM Read field 

I.VER$-0 I.VT2*-0 

IF I.VCB*-80 THEN 50924 

IF 1.VCB*«80 THEN I.VER&=11 
IF I.VCB%>=2000 THEN 1. VER%=11 
OUT I.RGO*,.1.CRD$* 

OUT 1.RG1%,1.VCB% AND &HFF 
OUT I.RG2*,1.VCB*N&H100 

GOSUB 58000 
I.VTSt-INPLI.RG3&) 


RETURN 


IF (1.VT3% AND &HEO)<>&HCO THEN I. VER$-5 


GOTO 50930 
I.VT2$-1 
1.BUF*(0)-&HCO 
OUT I.RGO#,1.CRDS 
WHILE I.VT2*«-I.VFS* 
I.VI9*-I.VT2*41.VCB* 
IF I.VT91»-2000 THEN 1.VER&=11 
OUT 1.RG1%,1.VT9% AND &HFF 
OUT I.RG2*,1.VT9*N&H100 
GOSUB 58000 
IF I.VER*-0 THEN 50960 
I.VT2$-9999 
GOTO 50970 


, 
+ 
+ 
" 
, 
" 
4 
+ 
+ 
" 
+ 
4 
" 
, 
" 
, 
" 
+ 
4 

" 
+ 
" 

, 
" 

) 
, 


AUOD XE o NV. 


+ 


GOTO 50950 ' 


" 
+ 
" 
+ 


) 


¥RDFLD ( 


Point to next char 
Ran off end of screen! 
Continue eating chars 


*FNEXT { I.VFL$, I.VCL%,) 
( I.VRO$, I.VER* |! 
Next field 


Illegal cursor value 

No next field. 

Set read command in place 
Low order address 

High order address 

Get data at current position 
Give up if slave dead 

This should be attribute 
Invalid cursor position 
Enter general FIND code 
1.VER$ JI.VCLE, ) 
Reset error flag & buffer ptr 
Special case of upper corner 
Invalid start address 
Beyond end of screen 

Set read command 

Low order address 

High order address 

Read the leading attribute 
Data word 

RETURN ’ Bad field type 
Scan and eat field 
Increment buffer pointer 
Fake attribute 

Setup the read command 
Until out of characters 
Offset to character 

bad field specs 

Set low address 

High address 

Xecute read operation 
Abort if slave dead 

Exit loop 


1, BUFS( 1. VT2%)=CVI(CHRS( INP(1.RG3%))+CHR$(INP(1.RG2%))} 


1.VT8*-I.VT2€*41 
WEND 


HEM Write field 

1.VER$-0 

IF 1.VCB*«80 THEN I.VER€-11 

IF I.VCB*»-2000 THEN I.VER$z11 
IF I.VCB*«1.VT1422000 THEN I.VER€-12 
IF I.VER*«»0 THEN RETURN 

OUT I.RGO%,1.CRD& 

OUT 1.RG1%,1.VCB% AND &HFF 

OUT I.RG2€*,1.VCB*N&H100 

GOSUB 58000 

IF I. VER*«»0 THEN RETURN 


IF {INP(I.RG3%) AND &HFE)<9(1.BUF%(0) AND 


I.BUFSLO)ZI.BUF$(0) OR 1 
1.VT2%=0 
IF (1.BUF%(0) AND &H10)=0 THEN 51052 
1.VT2%=1 
WHILE I.VT2%<=1.VT1% 
1.VTO%=].BUF%(I.VT2%) AND &HFF 


) 


" 


^X*WRFLD ( 
+ 


" 
" 
" 
, 
+ 
" 
, 


1 


+ 
&H 

E 

" 

+ 

" 

" 


) 


IF f.VTO*)-&H20 THEN IF I.VTO4«-&H29 THE 


IF 1.VTO%=&H31 THEN 51048 
IF 1.VTO*-&H32 THEN 51048 
IF I.VT0%=&H35 THEN 51048 


I. VER%=6 I.VT2%=9999 
I1.VT2%=I.VT2%+1 
WEND 
I.VT2%=0 


OUT 1.RGO%,1.CWRE 

WHILE I.VT2€*«-1.VFS€ 
I.VTOR-I.VCB*«1.VT24 
OUT 1.RG1%,1.VT0% AND &HFF 


Point to next location 


All done 
I.VER* )I.VCL$,] 
Heset error flag 

Illegal address 

Too large 

Field too long for screen 
Quit if bad parameters 
Read attribute from screen 
Low address 

High address 

Xecute! 
Abandon if dead slave 
FE) THEN I.VER%=13 
Set the MDT flag 
First byte of buffer to write 
Check for numeric only 
First buffer location to chk 
Do until all chars done 
Mask off any previous EAB 
N 51048 ' 0-9 is Ok 
Minus Ok 
Period Ok 
Plus Ok 
"Non-numeric" 
Next character 
Loop 
Start from the beginning 
Set write command 
Until all characters written 
Compute address 
Low address 


RETURN 


char 
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51062 
51064 
51066 
51068 
51070 
51072 
51074 
51100 
51105 
51108 
51110 
51112 
51114 
51116 
51118 
51120 
51122 
51126 
51200 
51202 
51204 
51206 
51208 
bie10 
51212 
51214 
51216 
51218 
51220 
51300 
51302 
51304 
513506 
51308 
51310 
51312 
51314 
51316 
51318 
51320 
51322 
51324 
51326 
51328 
51340 
61342 
1344 
61400 
51402 
51406 
51408 
51410 
51411 
51412 
51514 
51416 
58000 
58002 
58004 
58006 
58008 
58010 
58012 
58014 
58016 
58018 
58100 
58102 
58104 
58106 
58108 
58110 
58112 
58114 
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OUT I.RG2*,1.VTO*N&H100 
OUT 1.RG39$,1.BUF$L T. VT2€) AND &HFF 
GOSUB 58000 
IF 1.VER*«»0 THEN 1.VT2$-9999 
l.VT2*-1.VT2*«1 
WEND 
RETURN 
REM Get string from buffer 
I.VER*-0 : I.VT2*-0 
IF 1.VOO*»1920 THEN 1.VER%=12 
IF 1.VOO*«0 THEN 1.VER&%=12 
]I.VST$-"" 
WHILE (1.VOO%<=!.VFS%) AND (I.VT2$-0) 


RETURN 
RETURN 


" 
" 
, 
+ 
" 
D 
, 
" 
, 
" 
" 
+ 
, 


J. VST$=1.VST$+CHRS$(1. TABS (1. BUFSIT. VOO% ) 


1. VOO%=1.VOO%+4 
IF LEN(1.VST$)=254 THEN 1. VT2%=1 
WEND 


RETURN 

REM Put string in buffer A 
1. VER%=0 
IF 1.VOO*«LENILI.VST$)-1»;I.VFS* THEN I.VER$*-12 


1.VTSS-LEN(I.VST$) 
1.VT2$*-0 
WHILE I.VT2%<1.VT3% 


J. BUFR 1. VOOS4+E. VI2X )- I. TABS( ASCII MIDS (1 
I.VT2$-1.VT2*41 

WEND 

1.VOOf-1.VOOt4I.VT2$1 

HETURN 

REM Read screen absolute 

1.VER$*-0 

I.VTO*sI.VROTX*80«1.VCL£€-1 


IF I.VTO*«0 THEN I.VER&-11 : RETURN 
IF I.VT0€»-2000 THEN J.VER%=11 : 
IF I.VTOS41.VRR*22000 THEN I.VERt*-12 
I.VT1*-0 : I.VST$c"" 1.vSoss"" 

OUT I.RG0*,1.CRD* 
WHILE I.VTO$«I.VT2$ 


RETURN 


I.VI2*-I.VTOR«1.VRRt 


t 


, 


, 


" 


H 
J 
" 
Li 
" 
" 


+ 


, 
+ 
" 
" 
, 


High address 

Data w/o EAB 

Make slave do it. 

Force exit if slave DOA 
Next location to write 
Do it again 


All done! 
xGSTRU 1.VST$, I.VT1% 
I.VTO$* ) 


Offset too large 
Offset negative 
Clear string 


AND &HFF)4&H1001]1] 
Point to next char 
Overrun 


¥PSTR( I.VST$, I.VT1% 
I.VTOS ) 
RETURN ^ Too long 


IF 1.VT3%=0 THEN RETURN ' Zero strings easy! 


Offset into buffer 
While still characters 


.VST$,1.VT2%4+1,1) ) &HO 


Move pointer 


Pointer for next 
lransfer complete 


¥ABSRD | 1.VER*, I.VST$, 
1.V80$, 1.VROf, 
L.VCL&, I.VRRf* } 


Invalid cursor address 


RETURN ’ Can't read that much 


Offset from start 

Set a read commnad 

Until all characters read 
Low order address 

High order address 
Execute read operation 
Force loop exit 


Unmodified EAB 
Next character 


OUT 1.RG1%,1.V10% AND &HFF 
OUT I.RG2*,1.VTO*RN&H100 
GOSUB 58000 
IF I.VER*«»0 THEN I.VT0O$-9999 / 
{. VST$=1.VST$+CHRS$( 1. TABS( INPI I.RG3%)+8&H100)) ' Get char & convert 
1.V80$-I.VS0$ «CHR$(LINPCI.RG2*)]) ^ 
I.VTOR-1.VTO*41 d 
WEND 
RE TURN 
REM Read 3278 cursor position 


1. VER% =0 

OUT 1.RGO%,1.CAC% 

GOSUB 58000 

1.VTO%={ INP{ 1.RG2%)¥&H100)+INP(I.RG1%) 
IF I.VER%(>0 THEN RETURN 
1.VRO*-1.VTO$N80 

1.VCL*-(1.VTO* MOD 80)«1 

RETURN 


" 
+ 
, 
Li 
" 
+ 
" 
/ 


¥CPOS( 1.VRO#, 1.VCLE, 
1. VERS% ) 

Status & cursor read 

Start the slave 

Get absolute address 

Dead stave, quit action 

Compute row 

And column 


REM Start & wait for slave’ !Start & wait for slave 


1. V89$-TIME$ 
OUT I.RST£*,0 
I.VT8* = INP( I.RAF% ) AND I.MBS$ 
IF 1.VT8% = 0 THEN RETURN 

IF I.VS9$=TIMES THEN 58006 
1.VS9$=TIMES$ 1.VT9*-1.VT9€*«1 

IF I.VT9*«3 THEN 58006 

1.VER%=1 

RETURN 


I.VT9€*-0 


D 


A simulated stopwatch 
Start the slave 
Get slave busy bit 


Return with command complete 


Loop until clock ticks 
Three times 


Slave timeout 


REM Send key scan code from I.VT3t'xSend Key scan code 


1.VS9$-TIME$ 1.VT9*-0 


IF (INPLUI. RGO% ) AND 1.MKY$*]»0 THEN 58114 


IF I.VS9$=TIME$ THEN 58104 
I.VT9*-1.VT9*«41 
I. VER$=9 

RETURN 


IF 1.VT3%=-0 THEN I.VER%=15 RETURN 


IF 1.VT9%<4 THEN 58104 


, 
+ 
, 
" 


Make stopwatch 

Key buffer is ready 
Loop until clock tick 
Time has not run out 
Keystroke timeout 


Invalid scan code 


58115 
\ 58116 
58118 
58120 
l 58200 
| 58206 
58208 
58210 


ers 


OUT I.RGO%,1.CKY% ' Keystroke command 
OUT I.RG3f*,I.VT3€* ' 8can code 

GOSUB 58000 ' Fire up the slave 
RETURN ’ And we're done! 
REM - Verify Row and Column’ *Verify ROW/COL 

IF (1.VRO%<0) OR (I.VRO$»24) THEN I.VER€$-2 : RETURN 

IF (1. VCL$«1) OR (I.VCL$280] THEN 1.VER$-3 : RETURN 

RETUHN 
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Customer Support 
Information 


Digital Communications Associates, Inc. makes every effort 

to ensure that the product you have purchased is of excellent 
quality in all respects. All hardware and software products 
have been tested and subjected to strict quality control proce- 
dures. Manuals are designed and written to provide you with 
complete and accurate instructions on how to use your DCA 
product. You are encouraged to comment on the IRMA manual 
by filling out and sending in the customer response form 
included in this section. 


If needed, DCA Customer Support personnel are available to 
assist you from 8:30 a.m. to 8:30 p.m. EST at telephone number 
1-800-631-4171. In Georgia call 1-404-442-4470. 


The Customer Support section includes the following 
information: 


Limited Product Warranty, The watranty provides a one year 
limited warranty on IRMA. 


Return for Repair Procedure, This section provides instructions 
on returning hardware units to DCA for repair or replacement. 


Warranty Information and Diskette Replacement Policy, This 
wattanty covers your IRMA diskette. It includes a Ninety (90) 
Day Limited Warranty for diskettes. If your diskette is defective 
in materials or wotkmanship, under normal use during the 
Ninety (90) day warranty petiod, you may return it to DCA 
for replacement. You must contact DCA Customer Support 
before returning a diskette for replacement. 
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Statement of Copyright Restrictions, These restrictions apply 
to all DCA product documentation. 


Firmware Copyright Restrictions, These restrictions apply to all 
DCA products that contain firmware, including your IRMA 
board. 


Product Registration Card, This card allows you to register your 
product with DCA. Fill it out and send it in. This validates your 
watranty and provides DCA with a way to keep you informed 
of any product updates that may be made. Postage is prepaid. 


Customer Response Form, This card is provided so that you 
can comment on the IRMA manual. 


information. Save this form for your records. 
Product Name 

Serial Number 

Date of Purchase 


Place of Purchase 


Limited Product Warranty 
Pao ee eae! 
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Digital Communications Associates, Inc. (“DCA”) warrants 
product hardware to be free from defects in material and 
workmanship under normal, proper and intended use in its 
unmodified condition for one year from the date of purchase 
by the first End User (“Purchaser”). This warranty does not 
cover normal wear and tear, or damage caused by accident, 
negligence, vandalism, alteration, abuse, misuse, improper 
installation, environmental stress, or acts of God. 


DCA warrants that the product firmware will conform to DCA’s 
product specifications prevailing at the time of purchase. This 


firmware warranty makes no claim of compatibility with 
equipment or software supplied or to be supplied in the 
future by others. 


DCAS sole obligation under this hardware and firmware 
watranty shall be to furnish parts and labor for the repair or 
replacement of the product found by DCA to be defective in 
material ot workmanship during the warranty period. This 
limited warranty is non-transferrable and applies to the original 
End User Purchaser of the product and does not apply to sub- 
sequent purchasers through resale by the first End User. 


Warranty repairs will be performed at the DCA manufactur- 
ing facility or DCA designated repair facility. Purchaser should 
first contact a Service Representative at DCA to arrange for 
warranty service. Equipment for warranty service should then 
be returned postpaid to DCA and be accompanied by proof of 
purchase and a written description of the defect. Upon repair 
or replacement the equipment will be redelivered by DCA 
freight prepaid to the Purchaser. 


This express limited warranty is in lieu of all other warranties express 
or implied, statutory or otherwise including all implied warranties 
of merchantability and fitness for a particular purpose or use DCA 
shall not be liable for any damages sustained by purchaser or any 
other party arising from or relating to the use or performance of the 
product, or to any equipment failure, including, but not limited to 
consequential damages, nor shall DCA bave any liability for delays 
in replacement or repair of related equipment or the DCA product. 


Each End User who returns the Product Registration card to 
DCA shall be notified of product upgrades as they become 
available during the limited warranty period. 


Extended Warranty Services are available through DCA 
Customer Support. 
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Return For Repair Procedure 


Hardware Units Only 
o 
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If a hardware unit proves to be defective while still under 
watranty, you may return it to DCA for repair or replacement. 
Note that proof of date of purchase must accompany all prod- 
ucts returned for repair that are still under warranty. 


Before returning any units, contact DCA's Customer Support. 
Customet Support will attempt to determine the cause of your 
difficulty. If the board requires repair or replacement, they 
will provide a Return Authorization number (RA£). There 
will be no charge for the replacement or repait of boards still 
under warranty. 


Boards that are no longer under warranty can be repaired or 
exchanged at an additional cost. An extended 2 year warranty 
may also be purchased at additional cost. Call DCA Customer 
Support for further details. 


The following explains the procedure for returning a unit to 
DCA. 


1. If possible, pack the unit in its original container. If the 
original container is not available, wrap the unit in Non- 
static material such as newspaper and pack it in a sturdy, 
cardboard container. 


2. Include the following information for all units returned: 


Name 

Address 
City,State,Zip 
Telephone Number 
RA# 

Problem Description 


3, All units should be returned by prepaid postage. DCA will 
not accept units that have been sent C.O.D. 


4. Mail package to: 


Digital Communications Associates, Inc. 
Attention: Warranty/Repair 

1000 Alderman Drive 

Alpharetta, Georgia 30201 


Any package received without an RA# on the label may be 
returned unopened. 


Diskette Replacement Policy 


Digital Communications Associates, Inc. (“DCA”) wattants to the 
original consumer purchaser (the "Purchaser") only, that the 
magnetic diskette on which the computer program accom- 
panying this DCA Product (the “Product”) and limited warranty 
is recorded will be free from defects in materials and/or work- 
manship under normal use and service for a period of ninety 
(90) days from the date the Product is purchased by Purchaser. 
If, during this ninety (90) day period a defect in the diskette 
should occur, the diskette may be returned to DCA for replace- 
ment. The DCA Product this diskette accompanies must be 
registered with DCA. Purchaser should call DCA Customer 
Support for a return authorization and then return diskette, 
postage prepaid, with authorization to DCA. DCA will not 
accept diskettes which have been sent C.O.D. or without auth- 
orization. Replacement diskettes will be shipped to Purchaser 
by a method of DCA’s choosing. If Purchaser desires a specific 
form of conveyance, Purchaser must bear the cost of shipment. 


The Purchaser's sole and exclusive remedy in the event of a 
defect is expressly limited to replacement of the diskette. Pur- 
chaser shall be solely responsible for the failure of any diskette 
resulting from accident, abuse or misapplication of the dis- 
kette and DCA assumes no liability as a consequence of such 
events under the terms of this Limited Warranty. 


Any direct, incidental or consequential damages, such as, but 
not limited to, loss of anticipated profits or benefits, caused 
by malfunction, defect or otherwise and with respect to breach 
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of any express or implied watranty are not the responsibility 

of DCA or anyone else who has been involved in the design, 
production or delivery of the diskette on which the Program is 
recorded and to the extent permitted by law, are hereby excluded 
both for property and to the extent not unconscionable, per- 
sonal injury damage. 


This Limited Warranty gives Purchaser specific legal rights, 
and Purchaser may also have other rights which vary from state 
to state. 


Statement of Copyright Restrictions 


CS-6 


The Digital Communications Associates, Inc. ("DCA") manual you 
have purchased is copyrighted by DCA and all rights are reserved. 
Your rights of ownership are limited and restricted by the copyright 
laws of the United States. 


It is against the law to copy or in any way reproduce or translate 


any part of thismanual without the express written permission of DCA. 


This is not a full statement of copyright laws. For a complete state- 
ment of the restrictions imposed on you under the copyright laws of 
the United States, see Title 17, United States code. 


Firmware Copyright Notice 


This IRMA™ product contains firmware which has been copy- 
righted by Digital Communications Associates, Inc., (“DCA”). 
All rights are reserved. Your rights of ownership are subject to the 
limitations and restrictions imposed by the copyright laws (Title 17, 
United States code). 


It is against the law to copy, reproduce, or transmit (including, 
without limitation, electronic transmission over any network) any 
part of the firmware. 


This is not a full statement of copyright laws. For a complete state- 
ment of the restrictions imposed on you under the copyright laws of 
the United States, see Title 17, United States code. 


Reader Response Form 


In order to better serve our customers’ needs, we welcome comments or 
questions regarding our publications. Please take the time to fill out the 
following questionnaire. 


Name of DCA Product: 

Is this manual: Poor Fair Good Excellent 

Easy to read? m LJ E] L] 

Easy to follow? [] E E E 

Easy to understand? L] O E f 

Detailed enough? LJ fli [] LJ 

Too detailed? [] ia [] LJ 

Are technical terms 

clearly defined? O LI E E 

Are the illustrations 

helpful? O E E LJ 
Yes No 


Did you find any inconsistencies or errors 
in the instructions? 


[] 
O 


If yes, please describe: 


l l l Yes No 
Do the instructions provide all the 
information needed to use the product? D U 


If not, what additional information do you feel is needed? 


NAME (optional): 

TITLE: 

COMPANY: 

ADDRESS: 

CIDY:.— — 7o: — STATE: 


Thank you for taking the time to assist us. Return to: 


Manager of Technical Publications 
Digital Communications Associates, Inc. 
1000 Alderman Drive 

Alpharetta, Georgia 30201 
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ZIP: 


up-to-date by registering 
e service is provided FREE 


IMPORTANT 


REGISTRATION INFORMATION 


Please help us keep your IRMA™ 
with us immediately! This updat 


during IRMA’s warranty period. 


Thank you. 
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